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FOREWORD 

Due to the many requests for the Unravelled Series produced by Spectral 
Associates, and the fact that these books are rare and no longer in production, I 
have taken it upon myself to reproduce them in electronic .PDF (Adobe Acrobat®) 
format . 

I have re-disassembled the ROMs listed in this book, and added all the 
comments from the Original Extended Basic Unravelled Book. Some changes were made 
to make the book a little easier to read. 

1. The comments have been cleaned up some. In cases where a comments 
continued onto the next line, a * is placed in the Labels column, as well 
as a * at the beginning of each line of the comment. In cases where the 
previous comment used this format, a = was used. This was done in the 
original, but not all comments stuck to this format. 

2. I have renumbered all the line numbers. Each Appendix starts at Line 0001. 

3. Some spell checking, and context checking was done to verify accuracy. 

4. I used the Letter Gothic MT Bold Font. This allows for display of Slashed 
Zeros. I thought it important to be able to distinguish between and 0. 

5. All the Hex code now shows the Opcodes. 

There were other minor changes that were made to make viewing a little 
better. If any discrepancies arise, please let me know so that I may correct the 
errors . I can be contacted at : walter@tech-center.com 



About Me 

My name is Walter K. Zydhek . I've been a Computer Hobbyist since 1984 when I 
received my 1 st Tandy Color Computer 2 for Christmas. It had 32K of ram, Cassette, 
and one Cartridge. I quickly learned to program in Basic and then moved into 
Assembly . 

Over the next few years, I saved to purchase the Multi-Pak Interface, Disk 
Drives, Modem, OS-9, and various Odds and Ends. 

I moved to Tampa Florida and in the move, My CoCo was damaged. I then 
replaced it with the CoCo 3. WOW what a difference. I added the 512K Ram Upgrade, 
A CM-8 color monitor, and joined a CoCo Club. Can anyone from Tampa, Florida tell 
me the name? 

I had a couple of close friends that helped me explore the world of CoCo and 
by this time, I knew that my CoCo would be my friend forever. I give special 
thanks to Steve Cohn, who helped me get started with ADOS. Two other people whos 
names I can't remember were very beneficial to my mastering of the CoCo. 

Shortly after getting my CoCo 3, I started BBS'ing.. Wow, a whole new world.. 
My knowledge just kept growing.. 
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A few years later, I moved to Oregon, then to Phoenix, Arizona to attend 
school. I studied Electronics Technology at Phoenix Institute of Technology. In 
the second year, we studied Micro-processor Theory. For our labs, we just happen 
to use the Tandy Color Computer 3 (for studying 6809 Processors) . I had it made. 
In this class I added an EPROM programmer/reader to my list of hardware. My 
favorite instructor, Gary Angle & I spent many hours sharing information on the 
CoCo . At one time, we shared a joint project to disassemble ROMs from an 
industrial machinery which used the 6809 Processor. Using the CoCo to read the 
ROMs to work with. 

I even had a BBS running under OS-9 at one time. RiBBS I think it was. Very 
similar to QuickBBS and RemoteAccess BBS for the PC. 

In 1991, I finally converted over to PC, but never forgetting my CoCo. About 
5 years ago, My CoCo and all related material was stolen from me. And the CoCo 
world was just a memory. 

In the last 2 Years, my love for the CoCo has re-kindled. I have been 
partially content to use a CoCo Emulator for my PC. I tried the CoCo 2 Emulator by 
Jeff Vavasour. This was OK, but a lot was left out. I then purchased the CoCo 3 
Emulator. Much better, but would not use "Double Sided Disks". Although it did 
have a Virtual Hard Drive for use in OS-9. 

I then wanted to ^better' the CoCo Emulator, add use of PC hardware, Add 
Double Sided Disk functionality, and even make it Windows Native, instead of a Dos 
Box. Unfortunately the I could not get the source code for the CoCo 3 Emulator. 

I then turned to Paul Burgin' s Dragon 2/Coco 2 Emulator. This had source code 
available and with a small $20.00 donation, was able to get the source code to 
additional portions of his program. I have tinkered with it, but came to 
understand that I needed more info on the CoCo. I have looked all over the net and 
found quite a lot of useful information, but what I really needed was the 
Unravelled Series. 

I was able to find someone that had Extended Basic Unravelled and Disk Basic 
Unravelled (He sent them to me for free) . And a friend of mine had Super Extended 
Basic Unravelled (A copy I gave him years ago) . Unfortunately, the books are not 
in the best of shape, and the type is hard to read, and with so many people looking 
for the books, I decided to re-do them in Electronic format. 



I ask everyone that obtains copies of this electronic document to PLEASE give 
freely. These books are for educational/informational use only. These books are 
no longer in publication and Spectral Associates no longer in business. Do not use 
these books for financial gain, as that would most certainly abuse the Copyright 
Laws that I have already bruised by re-producing them. 



Other than that, enjoy the books! ! I'll add more information to them as I 
get it. I plan on adding more Memory Map information, as well as hardware info in 
the coming months.. But for now, take advantage of this fine resource. 



Walter K. Zydhek 
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CHAPTER ONE 

INTRODUCTION 

Super Extended Basic is the definitive source of information on the super 
high resolution graphics commands and Basic enhancements available from the Color 
Computer 3. Super Extended Basic Unravelled will deal with the enhancements to 
Color Computer Basic that make Basic versions 2.0 and higher. These Basic versions 
were introduced in the Color Computer 3. Super Extended Basic follows in the fine 
tradition of the Basic Unravelled series. We are proud to say that these books are 
the best documentation available concerning the internal structure of Color 
Computer Basic. We believe that Color and Extended Basic Unravelled were used as a 
guideline during the creation of Super Extended Basic 2.0! 

Super Extended Basic Unravelled will provide the reader with a complete, 
detailed and fully commented source listing of the super high resolution graphics 
package of Radio Shack's COLOR BASIC. It is not within the scope of this book to 
teach the neophyte how to develop his own color graphics routines. The reader will 
need to have a basic knowledge of 6809 assembly language programming to be able to 
take full advantage of the opportunities which this book presents. It is also 
assumed that the reader is familiar with the contents of the Color Computer 3 
Extended Basic manual which contains a general description of the overall operation 
of Basic and much useful information concerning the manner in which the high 
resolution graphics information is processed and put on the screen. The information 
and routines explained in this book will allow the user to understand how the Color 
Computer's routines alter the graphics screens and even allow the user to build his 
own routines to interface with the graphics routines in Super Extended Basic. 

No attempt will be made to re-explain the functions of BASIC or any routines 
which were explained in the first book of the Color Basic Unravelled series. The 
reader should be aware of the fact that Super Extended Basic is not a stand alone 
system. There are many direct calls into Basic and Extended Basic. These calls are 
not explained in this book and it will be necessary for the reader to refer to the 
other Basic Unravelled books in order to get a full explanation of these ROM calls. 
A complete memory map of the system operating variables is given in Appendix A and 
a symbol table is given in Appendix C. 

HISTORY OF THE COLOR COMPUTERS 

The original Color Computer was introduced in August of 1980 with a standard 
4K of memory. Enclosed in a battleship gray case, it sold for about $400. The Color 
Computer had a unique combination of random access memory (RAM) and read only 
memory (ROM) . There were two levels of Basic available: Color Basic and Extended 
Color Basic. Disk Extended Color Basic was soon added to the group. Each of these 
three levels of Basic were stored in their own ROM. The Basic ROM started at $A000, 
the Extended Basic ROM at $8000, and the Disk Basic ROM was plugged into the 
expansion port (ROM PAK slot) and started at $C000. Adding Extended Basic to your 
system was as simple as inserting a ROM into the circuit board. The user added Disk 
Basic by installing the Disk Controller into the expansion slot. This system of 
adding ROMs to upgrade the system caused some problems during the design of Basic. 
Several routines in Color Basic had to be changed to work in Extended Basic and 
Disk Basic. However, since they are in ROM. they couldn't be changed. The problem 
was solved by the use of RAM hooks. Within Basic and Extended Basic, several 
routines jump to these vectors located in lower RAM (at $15E) . From here, control 
can be redirected to another routine. For example, Basic has a routine that checks 
for a valid device number (0=screen, -l=cassette, and -2=printer) . With just Basic 
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installed, any other value returns an error. With Disk Basic installed, however, 
the routine has to also allow numbers 1-15. The Basic routine executes a JSR to the 
vector in low RAM. With just Basic installed, control is returned immediately. With 
Disk Basic installed, control is re-routed into the Disk Basic ROM. to a routine 
that allows values 1-15. 

The Color Computer 2 was introduced in 1983 sporting a small white case and a 
new keyboard. The changes were more cosmetic than anything else. At this point, 
several home computers were competing with the Color Computer, and prices were 
falling fast. By combining several chips into one and replacing a few components, 
the Color Computer 2 primarily allowed Tandy to produce the computer less 
expensively . 

In early 1984, Tandy considered producing a new version of the Color Computer 
- entitled the Deluxe - but the project was later canceled due to costs and the 
planned super edition of the Color Computer: the Color Computer 3 was finally 
introduced in August, 1986, six years after the original Color Computer, offering 
512K and advanced graphics. 

Many legacies of the Color Computer 1 and 2 remain in the Basic ROM of the 
CoCo 3. Throughout Basic, Extended Basic, and Disk Basic you will find many 
sections of code that were written to deal with the three ROM system. Much of it is 
unnecessary, since Basic on the CoCo is now in RAM, but was retained to insure 
compatibility with previous Color Computer versions. 

In October, 1983, Spectral Associates introduced a 3 volume set of books: the 
Basic Unravelled series. Those who have the 3 book set will find that Super 
Extended Basic Unravelled will be a welcome addition to the 3 book set. Those who 
don't already have these books should consider purchasing EXTENDED COLOR BASIC 
UNRAVELLED and DISK BASIC UNRAVELLED. 

HOW TO USE THIS BOOK 

Most users will undoubtedly spend the majority of their time using Appendix B 
which contains a source code listing of the top half of the Color Basic 2.0 ROM. 
This source code was developed independently by the author who has never seen or 
had access in any way to any source code developed by Microsoft, Tandy or 
Microware . 

Most labels used in Appendix B correspond to absolute addresses in ROM/RAM 
preceded by an 'L'. Literal labels have been assigned to RAM variables (memory 
locations that contain data which may change) and some routines and data tables. 
The symbol table in Appendix C will allow the user to locate the address of the 
literal label. The symbol table is composed of a long list of entries, arranged in 
alphabetical order. Each entry contains an address, a type code and the actual 
symbol (label) itself. The typecode maybe either D, E or L. If it is a D, the 
symbol is a variable name and it will be found in Appendix A. If the code is an E, 
the symbol has been defined by an EQUATE pseudo-op. Almost all of the equates may 
be found at the start of the variable listing in Appendix A. If the code is an L, 
the symbol is a label and will be found in Appendix B or in Extended Color Basic 
Unravelled' s Appendix B. 

Super Extended Basic Unravelled only covers the top half of the CoCo 3 ROM. 
Extended Color Basic Unravelled covers the bottom half of the ROM. There are 
several calls from the Super Extended portion of the ROM into the bottom half that 
you will not be able to follow unless you have the Extended Color Basic book. Many 
people have the Unravelled series which was produced for the CoCo 2 . The Extended 
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Color Basic Unravelled book is essentially a merged version of the older Color 
Basic Unravelled (version 1.2) and Extended Basic Unravelled (version 1.1) . If you 
have both of these books, Appendix I provides a listing of all of the changes made 
to convert Color Basic 1.2 and Extended Basic 1.1 into the bottom half of the 
Extended Color Basic 2.0 ROM. The Disk Basic ROM (1.0 or 1.1) has not been modified 
at all. 

The CoCo 3 ROM (version 2.0) from addresses SC000 - $DFFF contains the code 
used to initialize the system and the cute digitized picture of the authors which 
you get when you hold down the ALT and CTRL keys on power up or reset. The code 
located in this area must be of a temporary nature because the Disk Basic code is 
loaded into this area when the contents of the ROMs are transferred to RAM. A 
substantial portion of this code is used to patch Color Extended (and Disk if 
there) Basic once it has been loaded into RAM. The patches make use of labels of 
the following types: PATCHxx, ALINKxx and BLINKxx. The PATCHxx addresses correspond 
to the actual address where the patch will be made. The ALINKxx addresses 
correspond to those addresses where the patches will transfer control. The BLINKxx 
addresses correspond to where the patch code will re-enter the main stream code 
after the patch code has been executed. Not all patches will have a BLINKxx type 
address since control may be returned by an RTS . 

The FCS pseudo-op code is used in this listing. For those readers who are 
unfamiliar with this pseudo-op, it means exactly the same as an FCC pseudo-op with 
the exception that the last character in the literal string has a bias of $80 added 
to it. If, for example, the last character of an FCS instruction was an E, it would 
be assembled to $05 ($45+$80) . 
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CHAPTER TWO 

COLOR COMPUTER 3 HARDWARE DIFFERENCES 

This chapter deals with the major hardware and software differences between 
the original Color Computer and the Color Computer 3. The designers of the Color 
Computer 3 were guided by several design criteria which occasionally forced some 
odd decisions. First, the CoCo 3 had to be as compatible as was possible the older 
CoCos so that as much of the old CoCo software as possible would function on the 
CoCo 3. Also the CoCo 3 had to be as inexpensive as possible so that it would have 
a market niche (other than just selling it to CoCo 2 owners) . This constraint led 
to the GIME chip (or custom or tequila chip as it was also known) . 

Memory 

The most apparent difference with the Color Computer 3 is the capability of 
having up to 512K of Random Access Memory (RAM) . This RAM is made up of 256K 
Dynamic RAM chips. The 128K version of the computer has four (64K x 4 bit) chips, 
whereas the 512K version has sixteen (256K x 1 bit) chips. Upgrading from 128K to 
512K primarily consists of removing the existing RAMs and inserting the 512K 
upgrade board into the provided sockets. 

It should be noted that several problems were encountered early on with the 
RAMs supplied on early Color Computer 3s (the computer would crash during 
manipulation of the screen in some of the horizontal virtual enable modes) . These 
models contained 150ns RAMs from Mitsubishi. These problems appeared to be solved 
by replacing the RAMs with 150ns RAMs from Nippon Electronics Corp (NEC) or by 
replacing them with 120ns parts. 



The GIME Chip 

The Color Computer 3 has many features not available on the original 
Color Computer, including memory management, advanced interrupt processing, and 
advanced graphics. All of these functions, in addition to the original Color 
Computer graphics modes, are handled by one large chip referred to as the ''GIME' 
chip (pronounced "gimmee", for Graphics/Interrupt/Memory Enhancement) . We will 
touch on these subjects in the following paragraphs, and go into detail on them a 
little later. 

The Central Processing Unit (CPU) in the Color Computer 3 is the 6809. 
This processor, by its very design, is limited to accessing 64K of memory at one 
time. Making this chip work in a 512K computer is, therefore, a neat trick. To do 
this, a system called memory management is employed. Memory within the computer is 
divided up into 8K blocks (producing 16 blocks in a 128K system, 64 blocks in 
512K) . From this pool of 8K blocks you may select any 8 to fill the CPU's memory 
space of 64K. 

Two additional interrupts have been added to the Color Computer 3. The 
first is a timer interrupt which is a 12-bit interval timer, allowing you to set it 
to any value from 0-4095. This timer is counted down, and when it goes below 0, an 
interrupt may be triggered. The count is decremented every 70nsec or 63.5usec 
(selectable) . The other interrupt is a keyboard interrupt, causing an interrupt to 
occur whenever a key or joystick button is pressed. 

Super High Resolution Graphics 

No fewer than 15 super high resolution graphics modes have been added to the 
Color Computer 3, four of which are accessible from Basic. These range from 128 
pixels across with 2 colors to 640 pixels across with 4 colors In addition, each 
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graphics mode can have any one of 4 depths (192, 200, 210, and 225 rows) . This 
allows up to 60 different possibilities (actually there are more... which we'll 
discuss a little later) . Basic is limited to 192 vertical rows. 

In addition to the new graphics modes, the Color Computer 3 has 64 colors 
available, with a maximum of 16 on the screen at a time (actually, if you do some 
fancy stuff with interrupts, you can get all 64 at a time, but that's beyond the 
scope of this book) . To allow up 64 different colors, palette registers were 
incorporated into the GIME chip. Palette registers are discussed in detail in 
Chapter Five. 

The original Color Computer allowed you to start the screen display on any 
512 byte boundary. This has been improved in the Color Computer 3 to allow the 
screen to be set on any eight byte boundary. This allows a true smooth vertical 
scroll. In addition, there is a technique that allows smooth horizontal scrolling. 
Along with the new graphic capabilities, there are also new text modes available. 
Text can be displayed with 32, 40, 64. or 80 characters-per horizontal row. 

In the Color Computer 3, you have control over the color of the border, which 
you did not on the original Color Computer. 

Sound 

In order to keep the cost of the Color Computer 3 down, no sound chips 
were installed into the computer. Sound is still generated using the CPU or the 
optional Sound/Speech Cartridge. 

$FF22 

In the old CoCos the graphics display was taken care of by the Video Display 
Generator (VDG) . Controls were passed from the CPU to the VDG by way of Peripheral 
Interface Adapter 1 (PIA1) . The graphics display of the CoCo 3 is handled entirely 
by the GIME chip which has eliminated the need to pass controls through PIA1. 
However, in order to maintain compatibility with the older CoCos, a register has 
been built into the GIME chip which will retain any information written to the old 
VDG control bits of $FF22 . This internal GIME chip register is not accessible by 
the user and any data returned by reading $FF22 will come from PIA1, not from the 
GIME chip. The PIA1 bits which provided control to the VDG in the older CoCos are 
not used in the CoCo 3. Bit 2 of $FF22 (RAMSZ) is also not used - there is no 
hardware flag in the CoCo 3 to tell the user if the system contains 128K or 512K. 

The existence of the GIME chip's internal $FF22 register has allowed the 
addition of some extra features to the CoCo 3's CoCo compatible mode (32 column) . 
Bits 4 (upper/lower case) and 5 (invert) can be used to invert the foreground and 
background colors of the text screen or to allow true lower case characters. 

If bit 4=0, the ASCII codes from 0-31 will be the inverse video 
representations of the codes from 64-95. If bit 4=1, the ASCII codes from 0-31 
will contain lower case characters. Appendix I contains a complete chart of theses 
codes. If bit 5=0, the text screen will be black characters on a green 
background. If bit 5=1, the text screen will be green characters on a black 
background . 

Peculiarities and Compromises 

During the design of the Color Computer 3, Tandy was particularly careful to 
insure, as much as possible, that all software written for the original Color 
Computers would work on the Color Computer 3. This involved some peculiarities and 
compromises . 

Tandy' s primary method of insuring this compatibility was to have a mode of 
operation similar to the original Color Computer. This mode is referred to as the 
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CoCo compatible Mode, and is active when bit 7 of $FF90 is set. In this mode the 
primary difference is that the SAM registers (used to set graphics modes and screen 
addresses in the original Color Computer) are enabled. When this bit is cleared, 
you are in the CoCo 3 mode and the video display and vertical offset modes of the 
SAM registers are disabled. 

The original Color Computer was limited to 64K, and Basic was designed to 
operate within that constraint. Since making Basic work with more than 64K would 
have required major changes in Basic (which would mean software would be 
incompatible), Basic still is limited to 64K (32K for operating system code, 32K 
for workspace) . It should be noted that a few commands do access memory outside of 
this 64K range (LPEEK, LPOKE, HGET, HSCREEN, etc.), but the Basic program is 
limited to this 64K block. Several enhancements were made to Basic, though, 
including super high resolution graphics (up to 640 x 192) and a 40 or 80 column 
text mode. Fortunately, both the super hi-res graphics screen and the 40/80 column 
text screen are located outside of the 32K workspace (unlike the original Color 
Computers, where memory for these were taken out of the workspace) . Additionally, a 
super hi-res HGET/HPUT buffer is located outside of the workspace. This means that 
high resolution graphics and text can be achieved without sacrificing workspace. Of 
course while Basic can't have more than 32K for its program, machine language 
programs have full use of the 128K or 512K that you have in your system. 

Most of the original Color Computer graphics modes have been implemented in 
the Color Computer 3. However, the Semigraphics 4 mode (the standard 32 column text 
screen) is the only semigraphics mode available. Any software using the other 
semigraphics modes will not display properly on the Color Computer 3. 

Other Differences 

One of the important aspects of memory management is insuring that the code 
the CPU must execute is always in place. For example, you can't tell the memory 
management unit (MMU) to move in a new memory section when the CPU is getting its 
instructions from the section you're replacing. This is critically important with 
interrupts. When an interrupt occurs, which could happen anytime, control of the 
CPU must be transferred to a safe area of memory. The area from $FE00-$FEFF is 
especially good for this purpose since it is a special area of the logical address 
space. Bit 3 of INIT0 may be used to exempt this area from the effects of the MMU 
registers, thus guaranteeing that the RAM in this area is constant regardless of 
the changing contents of the MMU registers. Programs written for the original Color 
Computer that try to use the top of this area of RAM will most likely not work on 
the CoCo 3 because the CoCo 3 routes its interrupt vectors through there. 

There are four new keys on the CoCo 3's keyboard. The OS-9 operating system 
uses the Control (CTRL) and Alternate (ALT) keys. Basic doesn't use or recognize 
any of the new keys (except on power-on, as described below) . 

One of the popular graphic modes on the original Color Computer is the 
artif acting mode. This mode, accessed from Basic by the command PMODE 4: SCREEN 1,1, 
allows 128 x 192 graphics with red, blue, black, and white colors. Depending upon 
how the computer fired up, the red and blue colors may be switched, so most 
programs ask you to press the reset button to change the colors. On the Color 
Computer 3, these colors will fire up in a uniform way, and pressing reset alone 
won't change anything. If, when you press reset or turn on the computer, you hold 
the Fl key down, the colors will be reversed. This method allows full compatibility 
with previous Color Computer software. 

The original Color Computer had the capability of working at double the clock 
speed (referred to as double speed) . This didn't work in all machines, and was 
never supported by Tandy. The Color Computer 3 is guaranteed to work in double 
speed which can be turned on by storing data at $FFD9, and turned off by storing 
data at $FFD8 . Note that the Sound/Speech Cartridge (SSC) does not work in the 
double speed mode. At the time of this writing, there is no hardware fix to allow 
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the SSC to work in double speed, but it is expected that several fixes will be 
available soon. The fix would undoubtedly not be supported by Tandy. 

The Color Computer 3 also supports two button joysticks or mice. Super 
Extended Basic and OS-9 Level Two will allow you to read the second joystick 
button. 

The last major addition to the Color Computer 3 is the inclusion of composite 
and RGB output. This was primarily done to allow reasonable display of the super 
high resolution graphics. The computer may be connected to any standard composite 
monitor or any analog RGB monitor (this is different than TTL RGB or RGBI) . 
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CHAPTER THREE 

MEMORY MANAGEMENT 

The 6809 microprocessor can only address 64K of memory. In order to address 
more than 64K, a method must be found which will allow the user to switch different 
blocks of memory into the CPU's address space. The ability to perform this function 
is generally referred to as 'memory management'. There are as many different ways 
to implement a memory management scheme as there are different computers in the 
world, and each method will have its own strongpoints and limitations. In the Color 
Computer 3, the Memory Management Unit (MMU) function is performed by the GIME 
chip . 

The GIME chip will allow 512K of RAM to be accessed by the CoCo 3. This 512K 
address range is called the physical address space. The physical address space is 
broken down into 64 blocks of 8K each. The six high order bits of any address ($0- 
$7FFFF) are the block number. In a 128K machine that means that there will be 16 
blocks which will actually have RAM in them, and the other 48 blocks will be 
treated as three sets of 16 blocks all three of which are mirrors of the high order 
16 blocks. A 512K machine will, of course, have 64 blocks of RAM. This config- 
uration is determined by the GIME chip and there is no known way at this time to 
trick, fool, or otherwise cajole the chip into allowing you to hang more RAM on the 
system without adding hardware to the computer. From this pool of 64 8K blocks you 
may select any eight to fill the CPU's memory space of 64K. The 64K range which 
comprises the address range of the CPU is referred to as the logical address space. 
In order to simplify the task of understanding how this is done, it is best for the 
reader to discard the concept of the fixed memory map of the computer's memory. 
From the point of view of the CPU, the Color Computer 3's RAM is not one large 
contiguous block from - $7FFFF. This will undoubtedly cause a certain amount of 
confusion because the video display section of the Color Computer 3 does consider 
the RAM as one large contiguous block. 

Now, you may ask, if the memory is to be considered as 64 blocks of 8K, how 
does the CPU know where its memory is. That job is performed by the MMU registers 
which are located at $FFA0. The eight blocks which you select as the CPU's memory 
are mapped into the CPU' s address space by the MMU registers as shown in Figure 1 . 
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It is important to thoroughly understand the concept of memory blocks. The 
physical address space is composed of 64 physical blocks (they will be referred to 
simply as blocks) . The logical address space is the range of $0-$FFFF which can be 
addressed by the CPU. The logical address space should be considered as composed of 
eight 8K blocks of RAM. The MMU registers determine which eight of the 64 blocks 
from the physical address space will compose the logical address space. As a 
natural extension, the logical address space may be thought of as being composed of 
eight logical blocks. The logical blocks are numbered from 0-7 as described in 
Figure 1 above. The logical blocks are not really actual memory (the physical 
blocks are actual memory) , they are an 8K address space in the address range of the 
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CPU and their position relative to one another may not change in the eyes of the 
CPU. 

The MMU registers have no effect whatsoever on the manner in which the GIME 
chip displays graphic or text information. For the purpose of graphics, the 512K is 
considered as one large contiguous super chunk of RAM. In order to make this easier 
to understand since we are in a "block" frame of mind, just consider the video 
display memory as 64 contiguous 8K blocks. In other words, the video display memory 
is just the physical address space and there is no way to move the blocks relative 
to one another. 

The process of setting up the CPUs memory space requires that you select 
eight blocks, which will comprise the logical address space. Then you must program 
the MMU registers with the block numbers selected. For example, if you wanted block 
56 ($38) to occupy the CPU addresses - $1FFF (logical block 0), you must store 
the value $38 into address $FFA0 . If you wanted the high 64K of RAM of either a 
128K or 512K machine to occupy the logical address space as one contiguous 64K 
segment, you just load the values $38 - $3F consecutively into the consecutive 
addresses $FFA0 - $FFA7 . This is how Basic sets up the CPU's memory space. 

It is important to realize that there is no prohibition against using the 
same block in more than one block of the logical address space. If you put the same 
block number in all of the MMU registers, then the same 8K block of RAM would be 
mapped into all eight of the logical blocks. 

As an example of the power and flexibility which this system of memory 
management offers, we will consider the logical address space arrangement used by 
Basic to manipulate super hi-res graphic screens. It is not possible to read data 
from or write data into the Color Computer 3's memory unless the memory is in the 
logical address space. For example, if you wanted to read address $4F859, you would 
not be able to unless block 39 had been mapped into a logical block by an MMU 
register. Or, put another way, the value 39 must be in one of the MMU registers 
($FFA0 - $FFA7) . Basic allocates 32K of memory for its super hi-res graphics 
screen. In order to manipulate the screen, the 32K screen must be in the logical 
address space. The bottom 32K of memory in a 128K system ($60000 - $67FFF) is used 
for the super hi-res screen by Basic. In order to access the screen, this memory is 
mapped into logical block 1 as shown in Figure 2. Block numbers 48-51 are the super 
hi-res graphics screen. Block 56 must remain in logical block because it contains 
all of Basic's system variables and interrupt vectors, and block 63 must remain in 
logical block 7 because it contains the Basic program code which manipulates the 
super hi-res graphics screen. Block 53 is moved into logical block 6 (overlaying 
Disk Basic) and is used as the HPUT/HGET buffer. 
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There is one final aspect of the Color Computer 3's memory management system 
which must be addressed. The Color Computer 3 has two sets of MMU registers. The 
first set of eight registers located at $FFA0 should be very familiar to you by 
now. The second set of eight registers is located at $FFA8 and their function is 
identical to that of the first set in every aspect. Bit of initialization 
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register 1 ($FF91) is used to determine which one of the sets of registers is 
determining the makeup of the logical address space. If bit if $FF91 is set to 
zero, then the eight MMU registers at $FFA0 (task register 0) control the makeup of 
the logical address space. If bit of $FF91 is set, then the eight MMU registers 
at $FFA8 (task register 1) control the makeup of the logical address space (see 
Figure 3) . The theory behind the two sets of registers is that each set of 
registers may be allowed to control a different task by allocating two independent 
segments of 64K to each task and then simply selecting the desired set of registers 
in order to enable the desired task. This will work fine but you must be careful to 
remember that switching between the task registers will do nothing to preserve the 
status of the CPU registers, nor will it protect you from disasters if you should 
be interrupted during the transition. Whenever new memory is switched into a 
logical address space, be sure it isn't where the program counter, stack, or 
interrupt service routine is located. Major problems may happen it is: 



If the MMU registers have 
the data below in them 



$FFA0 24 

$FFA1 2 6 

$FFA2 15 

$FFA3 5 6 

$FFA4 41 

$FFAS 42 

$FFA6 62 

$FFA7 61 



$FFA8 34 

$FFA9 56 

$FFAA 4 3 

$FFAB 34 

$FFAC 35 

$FFAD 8 

$FFAE 3 6 

$FFAF 



Then the following blocks 
compose the logical address space 





$FF91 


$FF91 




bit0=0 


bitO=l 


soooo 


24 


34 


$2000 


26 


56 


$4000 


15 


43 


$6000 


56 


34 


$8000 
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$A000 
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$C000 
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36 


$E000 
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Figure 3 - MMU task registers 



Special notes: 

1) All of the MMU registers may be read from as well as written to. However, only 
the lower 6 bits of data are accurate. The top two bits should be masked off after 
they are read. Also, in order to enable the MMU registers, bit 6 of $FF90 must be 
set . 

2) The CoCo enable bit (bit 7, $FF90) does not have any effect upon the operation 
of the MMU registers. The MMU enable bit (bit 6, $FF90) must be set in order for 
the MMU registers to be operable. 

3) The area from $FF00 - $FFFF is used for system input/output and is never 
affected by the MMU registers. The area from $FE00 - $FEFF is a special page (256 
bytes) of RAM and may be affected by the MMU registers if MC3 (bit 3, $FF90) is 
clear . 
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CHAPTER FOUR 

SUPER HIGH RESOLUTION GRAPHICS 

The CoCo 3 will support several, new-high resolution graphics and 
alphanumeric text modes in addition to most of the older low resolution graphics 
and alphanumeric modes of the CoCo 2 . The only CoCo 2 alphanumeric mode supported 
by the CoCo 3 is the semi-graphics 4 mode. 

The characteristics of the graphics modes are controlled by the graphics 
control registers ( $FF98-$FF9F) . These registers are write-only registers 
(attempting to read these registers will not return accurate data) . The graphics 
control registers can have their function modified by the CoCo compatible bit (bit 
7, $FF90) and the BP bit (bit 7, SFF98) . It is important to realize that certain 
graphics control registers will be valid only if the COCO and BP bits are set up in 
a certain way. You may be able to produce interesting effects if you violate these 
restrictions, but you will have no guarantee that the effect will be supported by 
future versions of the Color Computer (if there are to be any future versions) . 

The GIME chip treats the system RAM as one contiguous 512K block for the 
purposes of video display. In a 128K system the true RAM is at the top of the 
physical address space and there are three 128K images below it. The graphics 
control registers are used to define the size of the screen and place it anywhere 
within the 512K that you wish. If you wish to modify the contents of a high 
resolution graphics or text screen, you must use the MMU registers to place that 
portion of the screen into the logical address space of the CPU in order to change 
the data - remember that the MMU registers will NOT affect the manner in which the 
screen is DISPLAYED but you must use them in order to change the data. 

One last warning: be careful how you use the COCO and BP bits. You may get 
some interesting effects if you set both of these bits, but it may bite you in the 
end. We cannot say what the results will be if you use a mode which is not 
specifically defined. All of the video control registers are designed to be used 
when the COCO bit is cleared with the notable exception of the vertical offset 
registers. A condensed summary of the control registers is contained in Appendix D. 

The registers from FF90 - FF97 are general purpose control registers for the GIME 
chip 

FF90 Initialization register INITO 

Bit 7 COCO l=CoCo compatible mode 

Bit 6 MMUEN 1=MMU enabled 

Bit 5 IEN 1 = GIME chip IRQ enabled 

Bit 4 FEN 1 = GIME chip FIRQ enabled 

Bit 3 MC3 1 = RAM at FEXX is constant 

Bit 2 MC2 1 = standard SCS (Spare Chip Select) 

Bit 1 MCI ROM map control 

Bit MCO ROM map control 

COCO: This bit is used to toggle the CoCo compatible mode on and off. The 
term CoCo compatible mode is somewhat of a misnomer as there are some CoCo 2 
graphics modes which are not supported by the CoCo 3 and some of the video control 
registers are active even when the COCO bit is in the CoCo compatible mode. The 
programmer is best advised to use this bit for exactly what it was intended for - 
to be set when you are using CoCo 2 graphics modes and to be clear when you are 
using the new CoCo 3 graphics modes. The descriptions of the CoCo 3 registers given 
below will explicitly state those instances in which the programmer should use the 
new registers with the COCO bit set. 
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MMUEN: When this bit is set the MMU registers are enabled. If this bit is 
clear, the MMU registers are inoperable and the 64K which makes up the logical 
address space is the contiguous segment from $70000 - S7FFFF. 

IEN: When this bit is set, the GIME chip's IRQ Interrupt structure is 
enabled. If the bit is clear, the old CoCo 2 PIA IRQ interrupt structure is used. 

FEN: When this bit is set, the GIME chip's FIRQ Interrupt structure is 
enabled. If the bit is clear, the old CoCo 2 PIA FIRQ interrupt structure is used. 

MC3 : When this bit is set, the RAM which occupies the CPU's address range of 
$FE00-$FEFF will always be taken from $7FE00-$ . 7FEFF . If this bit is clear and the 
MMUEN bit is set the RAM in the CPU's address range of $FE00-$FEFF will be taken 
from the block as specified by the MMU register controlling logical block 7. 

MC2 : Spare Chip Select (SCS) control; if 0, then the SCS line (to the 
expansion slot) will only be active in the $FF50-$FF5F range. If this bit is 1, 
then the SCS line will be active in the $FF40-$FF5F range. 

MCI: ROM map control 

MCO: ROM map control 

ROM configuration 

16K internal, 16K external 

32K internal 

32K external (except interrupt vectors) 

FF91 Initialization register 1 INITl 



Timer input select; 1 = 70 nsec, = 63.5 usee 



Task register select 

TINS: This bit controls the clock input to the 12-bit interval timer. If the 
bit is set, the input source will be 14.31818 MHz which will produce a clock pulse 
approximately every 70 nanoseconds. If the bit is clear, the input source will be 
the horizontal blanking pulse which will produce a clock pulse approximately every 
63.5 microseconds. 

TR: If this bit is set, then $FFA8-$FFAF will be the active MMU registers, if 
the bit is clear, then $FFA0-$FFA7 will be the active MMU registers. 

FF92 Interrupt request enable register IRQENR 



Timer interrupt 
Horizontal border interrupt 
Vertical border interrupt 
Serial data interrupt 
Keyboard interrupt 
Cartridge interrupt 

TMR: A timer interrupt is generated whenever the 12-bit interval timer 
($FF94-$FF95) counts down to zero. 

HBORD : The horizontal border interrupt is generated on the falling edge of 
the horizontal sync pulse. 
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VBORD : The vertical border interrupt is generated on the falling edge of the 
vertical sync pulse. 

EI2: The serial data interrupt is generated on the falling edge of a signal 
on pin 4 of the serial I/O connector (JK 3) . 

Ell: The keyboard interrupt will be triggered whenever a zero appears on any 
one of the PA0-PA6 pins of PIAO. These pins are normally programmed as inputs and 
are used to read the keyboard. The programmer should be warned that it is not 
chiseled into tablets of granite that these pins remain inputs - some interesting 
effects may be had by programming one as an output and using it to generate an 
interrupt. In their normal condition as inputs, an interrupt will be generated if a 
key is pressed and the proper keyboard column is strobed by placing a zero in the 
correct column strobe register ($FF00) bit OR if a joystick fire button is pressed. 
It is Important to note that a keyboard interrupt cannot be generated if there is 
not at least one zero in the keyboard column strobe register (ignoring joystick 
fire buttons) . Also note that there is no way to mask off the joystick fire buttons 
- they will always generate a keyboard interrupt. 

EIO: A cartridge interrupt will be generated on the falling edge of a Signal 
found on pin 8 (CART) of the expansion connector. 



FF93 Fast interrupt request enable register 



FIRQENR 



it 
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it 
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Unused 


it 
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it 
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it 
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Timer interrupt 
Horizontal border interrupt 
Vertical border interrupt 
Serial border interrupt 
Keyboard interrupt 
Cartridge interrupt 

The bits of FIRQENR are defined identically to those of IRQENR. 

FF94 Timer register MSB 

Bits 4-7 Unused 

Bits 0-3 High order four bits of the timer 

See the description of the timer register low order bits ($FF95) 
FF95 Timer register LSB 



Jits 0-7 



Low order eight bits of the timer 



The 12-bit interval timer located at $FF94-$FF95 may be set to any value from 
to 4095. When a value is loaded into the timer MS byte, the count will be 
automatically started. The timer will count down (it cannot count up) until it gets 
to zero at which time the initial count will be reloaded and the count down will 
restart. If the timer registers are loaded with 0, the count down process will be 
inhibited. The clock input to the timer may be either 14.31818 MHz or 15.734 KHz as 
selected by bit 5 of INIT1 . 

FF96 Reserved 
FF97 Reserved 
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The registers from $FF98 - $FF9F are the video control registers and are used 
to control the new video modes of the GIME chip. 

FF98 Video Mode Register 



Jit 7 



BP 



it 6 




it 5 


BPI 


it 4 


MOCH 


it 3 


H50 


its 0-2 


LPR 



Graphics modes 



= Text modes, 1 
Unused 

Burst Phase Invert (Color Set) 

1 = Monochrome on Composite 

1 = 50 Hz power, = 60 Hz power 
Lines per row 



BP (Bit Plane) : Determines whether the computer is to display graphics or 
text. If this bit is set to 0, the screen is displayed as text. If it is 1, 
graphics are displayed. 

BPI: Setting this bit will put you in the alternate color set. Technically, 
this bit tells the computer to invert the color burst phase going to the TV or 
composite monitor. Setting this bit will reverse the red and blue colors in the 
artif acting mode. 

MOCH: When this bit is set to 1, the composite (including TV) output of the 
Color Computer 3 is changed to black and white (monochrome) . This allows easier 
reading and better resolution in higher resolution text and graphics modes. This 
bit will not affect the RGB display. 

H50: if this bit is set, the power source is 50 Hertz, if the bit is clear, 
the power source is 60 Hz. 

LPR (Lines Per character Row) : These bits determine the number of vertical 
lines used for each character in the text display. The one, two and three lines per 
row settings have little practical value, as the character itself is seven rows 
high. Changing the setting will not change the size of the character; it will only 
change the number of rows between characters. These settings only affect the way 
text is displayed on the screen; it has no effect on the amount of memory used to 
contain the screen data. 



Jit pattern Lines per character row 

xxxxxOOO One line 

xxxxxOOl Two lines 

xxxxxOlO Three lines 

xxxxxOll Eight lines 

xxxxxlOO Nine lines 

xxxxxlOl Ten lines 

xxxxxllO Twelve lines 

xxxxxlll Reserved 



FF99 Video Resolution Register 

The Video Resolution Register controls the resolution and colors displayed on 
the computer. 



Sit 7 
Jits 5-6 
Jits 2-4 
Jits 0-1 



LPF 

HRES 

CRES 



Undefined 

Lines per Field (Number of Rows) 

Horizontal Resolution 

Color Resolution 



LPF: These two bits determine the number of vertical rows on the high 
resolution graphics display. 



16 



SUPER EXTENDED BASIC UNRAVELLED 



SUPER HIGH RESOLUTION 
GRAPHICS 



ORIGIN: SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3it Pattern 
xOOxxxxx 
xOlxxxxx 
xlOxxxxx 
xllxxxxx 



Rows Displayed 
192 
200 
210 
225 



HRE 
HRES bits 
screen. 



S: These three bits (HR0-HR2) determine the horizontal resolution. The 
set the display to a specific number of bytes (not pixels) across the 



Jit Pattern 



xxxlllxx 
xxxllOxx 
xxxlOlxx 
xxxlOOxx 
xxxOllxx 
xxxOlOxx 
xxxOOlxx 
xxxOOOxx 



BP = 1 






BP=0 


Bytes/Row 


(Graphics) 


Text Resolution 


160 




80 


Characters /Row 


128 




64 


Characters /Row 


80 




80 


Characters /Row 


64 




64 


Characters /Row 


40 




40 


Characters /Row 


32 




32 


Characters /Row 


20 




40 


Characters /Row 


16 




32 


Characters /Row 



CRES: If BP=1, these two bits (CR0-CR1) determine the number o 
available and the number of pixels contained in each byte. Multiplyi 
by the bytes hi each row will give you the number of pixels in each 

If BP=0, then bit 1 has no effect and bit is the attribute e 
attributes are not enabled, the number of characters appearing on th 
screen is determined by the number of characters per row set by the 
number of rows displayed as set by the LPF bits and the number of li 
set by the LPR bits of the video mode register. If the attributes ar 
number of bytes required to display a hi-res text screen is doubled 
byte is followed by an attribute byte as defined in Figure 4 . Theref 
attributes are enabled, all even bytes are character bytes, the make 
determined by the GIME chip' s internal character generator, and all 
attribute bytes. If the blink bit is set, the characters will blink 
is determined by the interval timer ($FF94,5) . If the timer is set t 
characters will not blink. The foreground colors are controlled by p 
numbers 8-15 and the background colors are controlled by palette reg 
0-7. Attributes are not available if COCO=l . 
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BP=1 



Jit Pattern 



xxxxxx 


11 




xxxxxx 


10 




xxxxxx 


01 




xxxxxx 


00 




Bit 7 




BLINK 


Bit 6 




UNDLN 


Bit 5 




FGND2 


Bit 4 




FGND1 


Bit 3 




FGND0 


Bit 2 




BGND2 


Bit 1 




BGND1 


Bit 




BGND0 



Colors 
Available 
Undefined 

16 

4 

2 



Pixels/ 
Byte 
Undefined 
2 

4 



BP=0 

Attributes 
enabled 
disabled 
enabled 
disabled 



l=Character blinks 
l=Character is underlined 
Foreground Color (MSB) 
Foreground Color 
Foreground Color (LSB) 
Background Color (MSB) 
Background Color 
Background Color (LSB) 
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Figure 4 - Attribute byte 

Summarized in Figure 5 are all of the allowed high resolution graphics modes 
allowed on the CoCo 3. You will notice that not all possible combinations of the 
CRES and HRES bits are given below. Only those combinations listed below are 
guaranteed and any other combinations, although they may appear cute and useful ARE 
NOT GUARANTEED TO BE SUPPORTED IN FUTURE VERSIONS OF THE COCO. 
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Figure 




5 - 



Graphics mode 

640 pixels, 4 colors 

640 pixels, 2 colors 

512 pixels, 4 colors 

512 pixels, 2 colors 

320 pixels, 16 colors 

320 pixels, 4 colors 

320 pixels, 2 colors 

256 pixels, 16 colors 

256 pixels, 4 colors 

256 pixels, 2 colors 

160 pixels, 16 colors 

160 pixels, 4 colors 

160 pixels, 2 colors 

128 pixels, 16 colors 

128 pixels, 4 colors 

128 pixels, 2 colors 

High resolution graphics modes 



* The 320 pixel, 2 color mode is not guaranteed to work at all possible 
starting addresses of the high resolution screen. 



FF9A Border Register 



Jits 6,7 
Jits 0-5 



BRDR 



Unused 
Border color 



This register controls the color of the border around the text or graphics 
screen. To set the border color, simply store the appropriate color code (composite 
or RGB) in the register. The colors available for use as a border color may be 
found in Appendix D. 

FF9B Unused 

FF9C Vertical Scroll Register 



Jits 4-7 
Jits 0-3 



VSC 



Reserved 

Vertical Scroll bits 



The Vertical Scroll Register is used to allow smooth vertical scrolling while 
in the hi-res text modes, and is used in conjunction with the LPR bits of the video 
mode register. By storing consecutively larger numbers in the VSC bits, the screen 
will scroll up one graphics row at a time. This will continue until you reach the 
lines per character row value that was set by the LPR bits. Once you reach this 
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value, to continue scrolling you should reset the vertical scroll register and then 
use the vertical offset registers to move the display down one entire character 
row . 

FF9D,FF9E Vertical Offset Registers 

The Vertical Offset Registers combine to determine the address (Y15-Y0) in 
memory where the video display starts when in the non— CoCo compatible mode. The 
video display is treated as one large contiguous block, starting at $00000 and 
extending to $7FFFF (if the system has only 128K, the RAM is located from $60000 to 
$7FFFF and is mirrored into lower RAM in three 128K sections) . The screen can be 
set to start on any 8-byte boundary. The video display address is set by taking the 
desired address, dividing it by 8, and storing that value in the vertical offset 
registers . 



Y15 Y14 Y13 Y12 Yll Y10 Y9 Y8 Y7 Y6 Y5 Y4 Y3 Y2 Yl Y0 



Vertical offset 1 ($FF9D) 



Vertical offset ($FF9E) 



Figure 6 Vertical offset registers (non-CoCo compatible mode) 
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Vertical offset 1 ($FF9D) 



Vertical offset ($FF9E) 



Figure 7 Vertical offset registers (CoCo compatible mode) 
FF9F Horizontal Offset Register 



Sit 7 
Jits 0-6 



HVEN 
X0-X6 



Horizontal Virtual Enable 
Horizontal Offset Address 



The Horizontal Offset Register allows you to add a horizontal offset to the 
video display. The value in the bottom 7 bits of this register is multiplied by two 
and added to the beginning screen address set in the vertical offset registers. For 
example, setting this register to 3 will make the screen appear to shift left 6 
bytes . 

One of the more interesting features incorporated into the Color Computer 3 
is the horizontal virtual enable mode, which is turned on by setting bit 7 of the 
horizontal offset register to 1. When you are in this mode, the screen width is 
forced to be 256 bytes across. The value stored in the video resolution register 
determines how many bytes of this 256 byte wide screen will be displayed. 
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This may sound confusing, but let's try an example. First the graphics mode 
is set up by storing a $16 in the video resolution register (this sets the screen 
display to 80 bytes across) . Next we store a SC000 (the screen address) into the 
vertical offset registers. Lastly, we store a $80 into the horizontal offset 
register, turning on the horizontal virtual enable feature. The screen now displays 
80 bytes of a 256 byte wide screen. The display starts at $60000. Now, simply by 
storing an $81 into the horizontal offset register, the screen scrolls left 2 
bytes. We are now looking at a screen displaying 80 bytes of a 256 byte wide 
screen. The display starts at $60002. 

By using the horizontal virtual enable along with the vertical offset 
registers, you can effectively have a "window" displaying memory on a 256 byte wide 
screen, extending vertically as high as memory will allow. In addition, when the 
seam (where the ends of the rows meet the start of the rows) is displayed, the 
display is adjusted to make the two ends of the rows join together. This is truly 
one of the more exciting features in the Color Computer 3. 

The horizontal offset addresses are intended to be used while the horizontal 
virtual enable mode is on, and peculiar things happen when horizontal offsets are 
used while not in the horizontal virtual enable mode. Let's say, for example, you 
set up a screen that is 160 bytes wide (e.g. HSCREEN 2) . Since the horizontal 
virtual enable is off, the video display circuitry recognizes that each row 
consists of 160 bytes, and each row starts 160 bytes after the start of the 
previous row (makes sense...) . However, the horizontal offset circuitry does not 
recognize the graphics mode, and tries to force a 256 byte wide screen. This is not 
a problem when the horizontal offset register is set to 0. However, conflicts occur 
when other values are stored in the horizontal offset register and the horizontal 
virtual enable mode is off. 

The results of this conflict are: 1) The horizontal offset circuitry displays 
the row as if it were 256 bytes wide. The first 160 bytes of the row are taken from 
the current row. The next 96 bytes (160 + 96 = 256) of the row are obtained from 
the beginning of the next row and 2) The video display circuitry starts each row 
160 bytes past the start of the previous row. These two factors together appear to 
mirror the first 96 bytes of the screen into the 96 bytes following the screen as 
it is scrolled horizontally. 

This effect is moderately interesting, but has few practical uses. Since it 
is probably the result of a compromise in the computer design, this effect will 
probably not be supported in future versions of the Color Computer. The horizontal 
offset is most efficiently used only if the horizontal virtual enable bit is set. 

Synchronous Address Multiplexer (SAM) 

The Synchronous Address Multiplexer is a special purpose chip used in the 
older CoCos to control the addressing of the various chips in the CoCo such as the 
RAMs, ROMs and the PIAs. This function has been incorporated into the GIME chip and 
the SAM control registers have been retained in the addressing arrangement of the 
GIME chip in order to provide compatibility with the older CoCos . The SAM registers 
are located from $FFC0-$FFDF and each pair of addresses in this range represents 
one bit of a SAM control register. The bits are cleared by writing any data to the 
even numbered bit, and set by writing any data to the odd numbered bit. Only those 
registers listed in Figure 8 are active in the CoCo 3. 

In the old CoCos, the CPU speed was-controlled by two bits and true double 
speed could not be obtained without losing the video display. The CoCo 3 allows 
true, non-address dependent double speed so the CPU rate only requires one bit - 
either single or double speed. 

The map type bit controls the ROM select lines of the GIME chip. If it is 
clear, the ROM select lines are allowed to be active and the configuration of the 



20 



SUPER EXTENDED BASIC UNRAVELLED II SUPER HIGH RESOLUTION ORIGIN: SPECTRAL ASSOC 

GRAPHICS REVISED :03/14/99 WALTER K ZYDHEK 

ROM is specified by the MCI and MCO bits of INITO . If it is set, none of the ROM 
select lines are allowed to be active and the system ROM is disabled. 

While in the CoCo compatible mode the SAM chip selects the 512 byte boundary 
(within the 64K segment specified by the YH2-YH0 bits) where the screen display 
will start. This is done by setting or clearing the appropriate display offset 
register bits. For example, to set the SAM to an offset of $400 you would set bit 
Fl of the SAM display offset and clear the other SAM display offset bits. This is 
done by writing any data to addresses SFFC6, $FFC9, $FFCA, $FFCC, $FFCE, $FFD0, and 
$FFD2 . 

The display mode control and the display offset registers have no effect in 
the non-CoCo compatible mode. 

SAM Register Bit 
map type: 0=ROM, 1=RAM 
CPU rate: 0=normal, l=double speed 
display offset register (MSB) 
display offset register 
display offset register 
display offset register 
display offset register 
display offset register 
display offset register (LSB) 
display mode control register (MSB) 
display mode control register 
display mode control register (LSB) 

Figure 8 - CoCo 3 SAM registers 



Address 




$FFDE,F 


TY 


$FFD8, 9 


Rl 


$FFD2, 3 


F6 


$FFD0, 1 


F5 


$FFCE,F 


F4 


$FFCC,D 


F3 


$FFCA,B 


F2 


$FFC8, 9 


Fl 


$FFC6,7 


FO 


$FFC4,5 


V2 


$FFC2,3 


VI 


$FFC0, 1 


VO 



21 



SUPER EXTENDED BASIC UNRAVELLED II COLORS AND PALETTES ORIGIN: SPECTRAL ASSOC 

REVISED :03/14/99 WALTER K ZYDHEK 

CHAPTER FIVE 

COLORS AND PALETTES 

There are 64 color codes available on the Color Computer 3, numbered from 0- 
63. By storing these values in the correct palette register (which well discuss in 
a bit), these colors are displayed on the screen. There are two color sets used on 
the Color Computer 3, one used for televisions and composite monitors, and the 
other used for RGB monitors. These color sets are derived in different ways, and we 
will discuss each of those separately. 

Colors on an RGB Monitor 

The term RGB is derived from the three color signals sent to the monitor: one 
each for red, green, and blue. These colors correspond to the three primary colors 
that make up each pixel on the screen. The Color Computer produces a signal for 
each of these three colors which may be any one of four strengths, numbered from 0- 
3. When any one signal is 0, the corresponding dot is off; when the signal is 3, it 
is on at full strength. A value of 1 or 2 would be one of the intermediate 
strengths. By combining these colors and intensities, a wide range of colors can be 
generated. The computer determines the strength of the red, green, and blue signals 
by the number of the color selected. 

Each RGB color value uses two bits to determine the strength of each of the 
red, green, and blue signals. This means that a total of six bits are used to 
determine the value of a color (six bits, of course, allows 64 possibilities) . 
Figure 9 shows how each color is derived. Note that the bottom three bits of the 
color value are used as the low order bits for each signal. The upper three bits 
are used as the high order bits for each signal. 

Bits 6, 7 Unused 

Bit 5 (Rl)High Order Red 

Bit 4 (Gl)High Order Green 

Bit 3 (Bl)High Order Blue 

Bit 2 (RO)Low Order Red 

Bit 1 (GO) Low Order Green 

Bit (BO) Low Order Blue 

Figure 9 - RGB Color Makeup 

For example, let's make the color purple which is made with the following 
color strengths: Blue = 3, Green = 1, Red = 2. Using the table above, this 
translates to the following bit pattern: xxlOlOll, or to a decimal value of 43. 
Refer to appendix D for a complete color chart . 

Colors on a Composite Monitor or Television 

Colors on a composite monitor are generated in the same way as colors on a 
TV. They are, however, derived in a completely different way than RGB colors. The 
colors are, again, specified using 6 bit. The bottom 4 bits determine the base 
color, and the top 2 bits determine the intensity of the base color. Figure 10 
shows the base colors. 



Bit Patt 


ern 


Base Color 


0000 




Black/White 


0001 




Blue 


0010 




Green 


0011 




Cyan 
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0100 Red 

0101 Magenta 

0110 Brown 

0111 Blue-Green 

1000 Sky Blue 

1001 Peacock 

1010 Cyan-Green 

1011 Red-Magenta 

1100 Red-Orange 

1101 Orange 

1110 Yellow-Green 

1111 Blue-Purple 

Figure 10 - Composite Base Colors 

Composite intensity values range from 0-3, and occupy bits 4 and 5 of the 
color value. For example, $04 sets the color dark red, $14 is red, $24 is medium 
red, and $34 is bright red. See appendix D for a complete list of available colors. 

Palettes 

Colors in the original Color Computers were determined by storing a specific 
pattern of bits (pixel) within the screen memory. This pixel corresponded to a 
specific color. In the Color Computer 3, the pixel now corresponds to a "palette", 
or color register (see Figure 12) . When it is time to display the screen, the 
computer determines the palette number of a pixel, then looks inside the palette 
register to get the color to display. The palette registers are located from $FFB0 
- $FFBF and are read/write registers, but the top two bits must be masked off after 
a read operation since only six bits contain valid data. 

This is a dramatic change and offers a flexibility that didn't exist before. 
First of all, the number of available colors as no longer limited to the resolution 
of the screen. However, even more exciting is what happens when you change palette 
registers. When a new value is stored in a palette register, say palette 1, all 
pixels that correspond to palette 1 change colors. This allows you to change the 
colors on large areas of the screen by simply changing one byte (or executing one 
PALETTE command) . The possibilities with this method of changing colors are 
immense, including limited animation. 

Even though there are 16 palette registers, not all of the palette registers 
may be active. For all 16 registers to be active, you must be in a 16-color hi-res 
graphics mode. It you are in a hi-res four-color mode, only the first four palette 
registers are active and if you are in a hi-res two color mode, then only the first 
two palette registers are active. Figure 11 shows the configuration of the pixels 
in the byte. 

Graphic byte 16 color mode 4 color mode 2 color mode 
bit 7 
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Figure 11 Pixel/palette register configuration 
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number 


pattern 


register address 





0000 


$FFBO 


1 


0001 


$FFB1 


2 


0O10 


$FFB2 


3 


0011 


$FFB3 


4 


0100 


$FFB4 


5 


0101 


$FFB5 


6 


0110 


$FFB6 


7 


0111 


$FFB7 


8 


1000 


$FFB8 


9 


1001 


$FFB9 


10 


1010 


$FFBA 


11 


1011 


$FFBB 


12 


1100 


$FFBC 


13 


1101 


$FFBD 


14 


1110 


$FFBE 


15 


1111 


$FFBF 



Figure 12 Pixel pattern/palette register relationship 

The palette registers are not affected by the COCO bit (bit 7, $FF90) . Figure 
13 shows the palette registers that are used in the different low and high 
resolution graphics and text modes. 

Graphics/Text Mode Palette Registers Used Palette Addresses 
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CHAPTER SIX 

INTERRUPTS 

A new system of interrupts has been added with the advent of the Color 
Computer 3. This section will discuss the two new interrupt sources (keyboard and 
timer), enabling the interrupts, and processing individual interrupts. There will 
be no discussion of the CoCo 2 PIA based interrupts. 

The new interrupt features are enabled by setting bits 4 (FIRQ) and 5 (IRQ) 
of $FF90. If these bits are clear, interrupts are handled as they were in the 
original Color Computer. Setting these bits allows you to use the new interrupt 
system. The new system of interrupts is based entirely upon the GIME chip and makes 
no use whatsoever of the PIA interrupt structure which was the basis of the old 
(CoCo 2) system of interrupts. 

The IRQ Enable/Status Register and FIRQ Enable/Status Register are located at 
$FF92 and $FF93 respectively. These registers are functionally identical, and are 
defined according to Figure 14. 
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To enable a specific interrupt, simply set the bit in the appropriate enable 
register. For example, in order to enable the timer to trigger an IRQ interrupt, 
simply store a $20 in $FF92. It is up to the interrupt servicing routine to 
determine what caused the interrupt, which is done by reading the appropriate 
status register. For example, if we have set up the interrupts to trigger an FIRQ 
interrupt when a key is pressed, the service routine should contain the following 
code to make sure the keyboard generated the interrupt: 

LDA SFF93 READ INTERRUPT STATUS REGISTER 
BITA #2 CHECK FOR KEYBOARD INTERRUPT 
BEQ BRANCH IF NOT KEY 

In addition to determining the source of the interrupt, reading the status 
register resets the interrupt flags (those same flags that told you where the 
interrupt originated) . The contents of the status register must be preserved by the 
programmer if you wish to make use of their contents after the status register has 
been read. 

The GIME chip interrupts are triggered on the high to low transition of the 
interrupt source when the enable line is high. The design of the interrupt input 
circuitry also causes an interrupt to occur if the interrupt source is high when 
the enable line is brought low. This will cause a spurious interrupt, which your 
interrupt handling routines must detect and reject. A current anomaly in the 
interrupt circuitry causes the interrupt status register to be cleared when a zero 
is written to the interrupt enable bit. 

The Keyboard Interrupt 
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One of the exciting new interrupts included in the Color Computer 3 is the 
keyboard interrupt. When set up properly, the user program can continue execution 
without continually checking to see if a key is down. When a key is pressed, an 
interrupt is generated. At this point, the interrupt servicing routine can 
determine which key was pressed and process it. 

To set up the keyboard interrupt, several things must be done. First of all, 
the interrupt enable/status registers must be turned on by setting the appropriate 
bits in $FF90 (as discussed above) . Then, the keyboard interrupt itself must be 
enabled by setting bit 1 of the appropriate interrupt enable register. Lastly, the 
keyboard strobe lines must be reset by storing a at $FF02 . Once this has been 
done, an interrupt will be generated by pressing a key on the keyboard or pressing 
a joystick button. 

The Timer Interrupt 

The timer is a 12-bit interval timer located at $FF94-$FF95. When a value is 
loaded into the most significant byte ($FF94), the count is automatically started. 
The input clock is set to either 14 MHz or horizontal sync, as selected by setting 
or clearing bit 5 of $FF91. As the count falls through zero, an interrupt is 
generated (if enabled), and the count is automatically reloaded. The timer 
interrupt is enabled by setting bit 5 of the appropriate interrupt enable register. 

The HBORD, VBORD, EI2, and EIO Interrupts 

The other interrupts are similar to their counterparts in the Color Computer 
2. HBORD causes an interrupt at the falling edge of the horizontal sync (the Color 
Computer 2 actually generated this interrupt at the blanking pulse — a subtle 
difference) . The VBORD interrupt is generated at the falling edge of the vertical 
sync. The EI2 interrupt is connected to the status line of the RS-232C serial 
connector (printer port), and the EIO interrupt is connected to the expansion (ROM 
PAK) port. 

An Example 

Lastly, as an example, let's set up the computer to generate an IRQ interrupt 
when a key is pressed on the keyboard. The following assembly code would produce 
this result: 

First enable the IRO interrupt 

LDA #$2 CODE TO ENABLE IRQ INTERRUPT 

STA $FF90 TURN ON INTERRUPT 
Now enable the Keyboard Interrupt at $FF92 

LDA #2 CODE TO ENABLE KEYBOARD INTERRUPT 

STA $FF92 ENABLE KEYBOARD IRQ 

CLR $FF02 CLEAR KEYBOARD STROBE LINES 

The service routine, of course, would read $FF92 and check to make sure the 
keyboard interrupt was responsible for the interrupt. 

Interrupt Vectors 

When an interrupt occurs, the computer must know where to go to process the 
interrupt. To find this information, the computer looks into the $FF02 - $FFFF 
range, which is defined as follows: 

Address Interrupt CoCo 2 Vector CoCo 3 Vector 
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$FFF2 


SWI3 


$100 


$FFF4 


SWI2 


$103 


$FFF6 


FIRQ 


$10F 


$FEF8 


IRQ 


$10C 


$FFFA 


SWI 


$106 


$FFFC 


NMI 


$109 


$FFFE 


RESET 


$A027 
Figure 15 - 



$FEEE 
$FEF1 
$FEF4 
$FEF7 
$FEFA 
$FEFD 
$8C1B 

Interrupt Vectors 



When an interrupt such as IRQ interrupt occurs, control is transferred to the 
interrupt vector table ($FFF0-$FFFF) as shown in Figure 15. The GIME chip (and the 
SAM chip in the older CoCos) redirect the CPU's address request from the $FFF0- 
$FFFF range to $BFF0-$BFFF so that the interrupt vectors can be stored in the Basic 
ROM. In the original Color Computer, control would then be sent to $10C. At this 
address was (and still is) a jump table which redirects control to the desired IRQ 
routine. Since this jump table is in RAM, it may be modified by Extended Basic, 
Disk Basic, or any user program. 

In the Color Computer 3, there is no guarantee that Basic or the Basic jump 
table is in memory (because of the MMU) . For this reason, an intermediate jump 
table was made in RAM in the $FEEE range, which can be forced to be in the logical 
address space at all times. This jump table, when Basic is running, contains LBRAs 
to the appropriate address in Basic's interrupt jump table ($100) . This also means 
that when a user program wants to replace the memory at $100 - $111, it should deal 
with the interrupts at the intermediate jump table at $FEEE. For example, if a user 
program wishes to replace the IRQ vector, the following code could be used: 



ORCC 


#$50 


LDA 


#$7E 


STA 


$FEF7 


LDX 


#SERVIC 


STX 


$FEF8 



ANDCC #$AF 



TURN OFF INTERRUPTS DURING CHANGE 
OP CODE FOR JMP INSTRUCTION 
REPLACE LBRA WITH JMP 
POINT X TO SERVICE ROUTINE 
PLACE ADDRESS AFTER JMP ADDRESS 
TURN INTERRUPTS BACK ON 
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CHAPTER SEVEN 

SUPER EXTENDED BASIC 

Super Extended Basic has two major functions. First of all, it provides the 
necessary machine code to initialize the computer and make Basic work therein. 
Secondly, several new Commands have been added, primarily to make use of the 
advanced graphics and memory capabilities. In the following pages, we will discuss 
each of these functions 

Initialization 

In addition to the all RAM mode (where all memory in the computer is RAM) , 
there are 3 different ROM configurations (where some of the memory in the computer 
is in ROM) . ROM may be configured as one 32K block inside the computer ($8000- 
$FDFF) , 16K inside the computer ( $8000-$BFFF) and 16K from the cartridge port 
( $C000-$FDFF) , or 32K (except for the interrupt vectors) accessed through the 
cartridge port. 

When the Color Computer 3 is turned on, the system is set up for 32K of ROM 
inside the computer. After some preliminary initialization, a routine is copied 
from the 32K ROM to $4000 in RAM and executed. This routine copies Extended Color 
Basic, Super Extended Basic and Disk Basic (if available) into RAM. Once this is 
done, the routine patches several of the routines in Basic to work in the Color 
Computer 3. Unfortunately, the authors did not include patches that would fix any 
of the inherent bugs in the old Basic. The main benefit of this complex system, as 
far as the user is concerned, is that Basic is now located in RAM, and is easily 
changed by pokes. 

The initialization routine for the Color Computer 3 begins at $8C1B. This 
code writes over the DLOAD routine that was in the original Color Computer 
(actually, typing DLOAD will simulate pressing the reset button) . This initial- 
ization routine is used for both a warm start (simply getting control of the 
computer back from a runaway program) and a cold start (where the computer and 
Basic have to be reinitialized) . In the following paragraphs, we will discuss the 
fundamental steps used to initialize the system. 

The body of the initialization routine is located in the 32K internal ROM at 
$C000. Therefore, one of the first actions which the routine at $8C1B does is to 
enable the 32K internal ROM and jump to $C000. The routine then does the following 
steps, (in order) . 

1) Clear the Screen. The screen is cleared by storing $12s in all of the 
palette registers. Note that the memory where the screen is pointing is not 
necessarily clear, just all of the differing values display identical colors. 

2) Set up MMU Registers. The routine initializes the MMU registers to values 
it needs . 

3) Copy Initialization Routine. The routine that copies Basic into RAM and 
patches the code is moved to $4000 in RAM. This insures that it will be there with 
all configurations of ROM/RAM. Control is then transferred to this routine. 

4) Text Screen Display Set. The Video Registers are set up to display the 
32x16 text screen. 

5) Initialize Registers. The Peripheral Interface Adapters (PIAs) and SAM 
registers are initialized. 

6) Fl Key Check. The Fl key is polled, and a flag is set if the key is down 
(this is used to force the alternate color set) . 

7) ALT and CTRL Keys Checked. If the ALT and CTRL keys are both pressed, 
control is transferred to another routine that displays a digitized picture of 
Basic's authors. 
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8) Check the flag at $FFED (INT. FLAG) . If this flag is not $55 (which would 
indicate that it was set up before) , control is transferred and a cold start is 
forced. 

9) Check Reset Flag. Next the Reset Flag (RSTFLG, $71) is checked. If it is 
not $55 (indicating that Basic has already been initialized), a cold start is 
forced. Otherwise, the warm start routine is executed. 

The Warm Start Routine 

The warm start routine is used when the initialization routine has determined 
that Basic is still intact. First, the address of the warm start routine is 
retrieved from the Reset Vector (RSTVEC, $72) . Next, the first byte at this address 
is checked. If it is a NOP instruction, control is transferred to this warm start 
address. Otherwise, a cold start is forced. 

Cold Start 

First, Basic, Extended Basic, Disk Basic (if there), and Super Extended Basic 
are copied into RAM. Next, several patches are made in Basic, Extended Basic, and 
Disk Basic (these patches are detailed in Appendix B, $C256) . The intermediate jump 
table for the interrupts is then moved to $FFEE (as well as the flag at $FFED 
discussed earlier) . If the flag indicating the alternate color set was chosen (i.e. 
the Fl key was down), the color set is selected. Next the low-resolution text 
screen is cleared to spaces. Lastly the palette registers are set to their default 
values and control is transferred to the reset address in Basic (at $A027) . 

New Commands 

Shortly after a prototype Color Computer 3 was created, Tandy contracted with 
Microware in Des Moines, Iowa (the makers of OS-9) to upgrade Basic to work with 
the new features of the computer. Microware decided that the best system to use 
would be to patch Basic during the initialization of the computer. The result of 
this is a somewhat complicated system of ROM and RAM switching. 

The Color Computer 3 added several new commands to Basic, including ON ERROR 
and ON BREAK trapping, high resolution text commands, and high resolution graphics 
commands. You can even print characters on a hi-res graphics screen! 

Most of the routines that make up the super high resolution graphics commands 
(HPAINT, HDRAW, HLINE, etc..) were derived from the related commands in Extended 
Basic. Though mimicking these routines is not necessarily a bad philosophy, the 
Extended Basic routines were never designed to handle 640 pixel wide screens. 
Unfortunately, very little was done to increase the resolution of the routines. The 
most obvious example of this is the HCIRCLE command, which has little more detail 
on the super high resolution screens than on the low resolution screens. 

Inconsistencies 

In upgrading the graphics commands to work on the Color Computer 3 some of 
the conventions used in Extended Basic were ignored. The most apparent example of 
this is the HSCREEN command. Extended Basic requires that you set up the graphics 
mode using the PMODE command, then (if you wish) clear the screen using the PCLS 
command, and lastly display the screen with the SCREEN command. Super Extended 
Basic has replaced all of these commands with one command, HSCREEN, which sets the 
mode, clears the screen, and displays the screen. This does not allow you to view a 
screen loaded in from disk or cassette, create the screen before viewing it (which 
would be helpful with 32K screens), or switch between the text and graphics modes 
without redrawing the graphics screen. 

The original programmers of Basic also went to great lengths to allow you to 
draw the same picture on a higher resolution PMODE by simply changing the PMODE 
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command. All coordinates are 0-255 across and 0-191 vertically, no matter what 
graphics mode you are using. Unfortunately, the new authors did not adhere to this 
convention, and the coordinates for drawing on the super high resolution screen 
must change depending upon the HSCREEN resolution you are using. 

There are several key routines within Basic which are described in the back 
of the Basic User's manual (ROM ROUTINES) . Programmers have been encouraged to use 
the indirect calls to these routines, as they are the only calls supported by 
Tandy. One of these calls (CHROUT) prints a character to a device (0 = screen, -1 = 
cassette, -2 = printer) . The code for this device is located at $6F (DEVNUM) . Basic 
2.0 now also checks the byte at $E7 (HRWIDTH) . If this byte is 0, text is printed 
to the standard 32 x 16 text screen. Otherwise, text is printed to the hi-res text 
(HRWIDTH) screen. This change is not documented in the Basic manual. Many CoCo 2 
programs use the official CHROUT ROM call, but do not insure that HRWIDTH is zero. 
This will cause Basic to attempt to write its message on the hi-res screen with 
unpredictable results since using the hi-res screen is not supported by the CoCo 2 . 

Inefficiencies 

Several aspects of Super Extended Basic are somewhat inefficient. It is, 
unfortunately, clear that the people who wrote Super Extended Basic did not use 
Color Basic regularly. The most glaring example is the omission of a routine that 
would save a super high resolution screen to disk or tape. 

When Basic version 1.2 was released, one of the changes was an alteration to 
the Read Key routine. The result was that Basic ran faster (instead of individually 
checking each key to see if it was down) . Basic was changed to first check to see 
if any key was down) . This upgrade was changed back to the original method by Basic 
2.0. There were probably intentions of making Basic work with the keyboard inter- 
rupt, then the idea was scrapped and the patch accidentally left in. 

Ram Hooks 

Many of the Super Extended Basic command and functions have been provided 
with a pseudo RAM hook. Since Basic is run in RAM in the CoCo 3, it doesn't really 
make sense to call them a "RAM hook" but it does make it easier to draw a parallel 
to the RAM hooks used in the earlier versions of Basic. The RAM hooks come in the 
form of a LBRN instruction. This is a convenient way to allow the user to "patch" 
or modify any of the routines which have a RAM hook. Of course, it should be 
obvious that ANY Basic routine may be easily patched in the normal manner if the 
user desires to do so since Basic runs in RAM. 

Bugs 

There are several bugs within Super Extended Basic. Some are minor and 
without too much consequence. Others, however, are potentially disastrous. Here are 
a few of the more important ones. 

Any Basic program containing Disk Basic commands must be listed out with Disk 
Basic installed. If you try to list the program without Disk Basic, the computer 
will hang. For example, let's look at the line 10 KILL "TEMP/DAT". The program will 
load into a system that does not have Disk Basic installed. The program will even 
run and will return an ?SN ERROR IN LINE 10. However, when the line is LISTED, the 
computer will hang (Basic gets confused when it can't find the word KILL for the 
Basic token in line 10) . 

The Super Extended function tokens have been forced to start at $29. They 
should be forced to start at $28. As a result, function token number $28 will never 
be used. This is not a bug of earth shaking proportions, but one should be aware of 
it. 
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The ERLIN function will return a negative number if the line number in which 
the error occurred is greater than 32767. This is caused by the fact that the ERLIN 
function returns the line number as a two byte integer instead of a floating point 
number as it should. 

Extended Basic graphics commands (LINE, CIRCLE, DRAW, etc.) don't work well 
with their Super Extended Basic counterparts (HLINE, HCIRCLE, HDRAW, etc) . For 
example, the command HLINE - ( 1 92 , 639) , PSET : LINE -(0,0),PSET will cause problems 
(often destroying the Basic program) . This means you must be very careful to 
include the H before the Super Extended graphic commands. These problems are caused 
by the fact that Super Extended graphics routines such as HDRAW, HLINE, HCIRCLE 
etc. use the same direct page variables as their lower resolution Extended Basic 
counterparts. As a result, mixing up the two types of commands may cause problems. 

HDRAW does not work properly with relative motion in the negative direction 
that is greater than 255. For example: HDRAW "BM-320". The distance is not 
calculated property due to an error in the negate routine. 

HPUT will not work with the NOT action. The command is supposed to reverse 
the image in the HGET/HPUT buffer and place it on the screen. Because of the bug, 
the command reverses the specified section of the screen and does nothing with the 
image . 

The RGB and CMP commands function by copying an image of the palette 
registers from RAM into the palette registers. As they now stand, these commands 
will only copy 15 instead of 16 palette registers when invoked. Palette register 15 
is not copied which generally will not cause problems but the user should be aware 
of this flaw in the RGB and CMP commands. 

Listed below are the Spectral approved fixes for the easily fixable bugs 
listed above. 

To force HSCREEN to clear the hi-res screen: 
POKE &HE6C6,&H21 

To fix the RGB and CMP commands: 
POKE &HE64C,16 

To fix the HPUT "NOT" option: 
POKE &HEF13,&HC4 

To fix the HDRAW bug: 

POKE &HF58D,&HBD JSR SF4CC 
POKE &HF58E,&HF4 
POKE &HF58F,&HCC 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0015 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 



C000 


ROMPAK 


EQU 


$C000 


0008 


BS 


EQU 


8 


000D 


CR 


EQU 


$D 


001B 


ESC 


EQU 


$1B 


000A 


LF 


EQU 


$A 


000C 


FORMF 


EQU 


$C 


0020 


SPACE 


EQU 


$20 


003A 


STKBUF 


EQU 


58 


045E 


DEBDEL 


EQU 


$45E 


00FA 


LBUFMX 


EQU 


250 


00FA 


MAXLIN 


EQU 


$FA 


2600 


DOSBUF 


EQU 


$2600 


0020 


DIRLEN 


EQU 


32 


0100 


SECLEN 


EQU 


256 


0012 


SECMAX 


EQU 


18 


1200 


TRKLEN 


EQU 


SECMAX*SECLEN 


0023 


TRKMAX 


EQU 


35 


004A 


FATLEN 


EQU 


6+(TRKMAX-l)*2 


0044 


GRANMX 


EQU 


(TRKMAX-1)*2 


0119 


FCBLEN 


EQU 


SECLEN+25 


0010 


INPFIL 


EQU 


$10 


0020 


OUTFIL 


EQU 


$20 


0040 


RANFIL 


EQU 


$40 




* PSEUDO 


PSEUDO 


OPS 


0021 


SKP1 


EQU 


$21 


008C 


SKP2 


EQU 


$8C 


0086 


SKP1LD 


EQU 


$86 



0080 
0040 
0020 
0010 



0004 
0002 
0001 



0020 
0010 



0004 
0002 
0001 



0030 
0031 
0032 
0033 



* SUPER EXTENDED BASIC EQUATES 



0018 


ROWMAX 


EQU 


24 


0000 


RAMLINK 


EQU 





2000 


HRESSCRN 


EQU 


$2000 


C000 


HRESBUFF 


EQU 


$C000 


DFFF 


TMPSTACK 


EQU 


$DFFF 


0062 


EBHITOK 


EQU 


$62 


0029 


EBHISTOK 


EQU 


$29 


0020 


CURCHAR 


EQU 


SPACE 




* HBUFF HGET/HPUT BUFI 


0000 


HB.ADDR 


EQU 





0002 


HB.NUM 


EQU 


2 


0003 


HB.SIZE 


EQU 


3 


0005 


HB.LEN 


EQU 


5 



BACKSPACE 
ENTER KEY 
ESCAPE CODE 
LINE FEED 
FORM FEED 
SPACE (BLANK) 

STACK BUFFER ROOM 

DEBOUNCE DELAY 

MAX NUMBER OF CHARS IN A BASIC LINE 

MAXIMUM MS BYTE OF LINE NUMBER 

RAM LOAD LOCATION FOR THE DOS COMMAND 

NUMBER OF BYTES IN DIRECTORY ENTRY 

LENGTH OF SECTOR IN BYTES 

MAXIMUM NUMBER OF SECTORS PER TRACK 

LENGTH OF TRACK IN BYTES 

MAX NUMBER OF TRACKS 

FILE ALLOCATION TABLE LENGTH 

MAXIMUM NUMBER OF GRANULES 

FILE CONTROL BLOCK LENGTH 

INPUT FILE TYPE 

OUTPUT FILE TYPE 

RANDOM/DIRECT FILE TYPE 



OP CODE OF BRN SKIP ONE BYTE 

OP CODE OF CMPX # - SKIP TWO BYTES 

OP CODE OF LDA # - SKIP THE NEXT BYTE 

AND LOAD THE VALUE OF THAT BYTE INTO ACCA THIS 

IS USUALLY USED TO LOAD ACCA WITH A NON ZERO VALUE 



MAXIMUM NUMBER OF ROWS IN HI-RES PRINT MODE 

DUMMY RAM LINK VECTOR 

ADDRESS OF THE HI-RES SCREEN IN THE CPU'S MEMORY SPACE 

ADDRESS OF THE GET/PUT BUFFERS IN THE CPU'S MEMORY SPACE 

ADDRESS OF THE HI -RES GRAPHICS STACK IN THE CPU'S MEMORY SPACE 

FIRST ENHANCED BASIC TOKEN NUMBER 

FIRST ENHANCED BASIC FUNCTION TOKEN NUMBER BUG - SHOULD BE $28 

HI-RES CURSOR CHARACTER 



ADDRESS OF THE NEXT BUFFER - 2 BYTES 
NUMBER OF THIS BUFFER - 1 BYTES 
NUMBER OF BYTES IN THE BUFFER - 2 BYTES 
NUMBER OF BYTES IN THIS HEADER 



* VIDEO REGISTER EQUATES 

* INIT0 BIT EQUATES 



COCO 

MMUEN 

IEN 

FEN 

MC3 

MC2 

MCI 

MC0 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$40 

$20 

$10 

8 

4 

2 

1 



INTERRUPT REQUEST ENABLED 



TMR 
HBORD 
VBORD 
EI2 

Ell 
EI0 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$20 
$10 



* EXPANDED MEMORY DEFINITIONS 
BLOCK 6.0 EQU $30 
BLOCK 6.1 EQU $31 
BLOCK 6.2 EQU $32 
BLOCK 6.3 EQU $33 



1 = Color Computer compatible 
1 = MMU enabled 

1 = GIME chip IRQ output enabled 
1 = GIME chip FIRQ output enabled 
1 = RAM at XFEXX is constant 
1 = standard SCS 
ROM map control 
ROM map control 



TIMER 

HORIZONTAL BORDER 

VERTICAL BORDER 

SERIAL DATA 

KEYBOARD 

CARTRIDGE 



BLOCKS $30-$33 ARE THE HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 
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0076 




0077 




0078 




0079 




0080 




0081 




0082 




0083 




0084 




0085 




0086 




0087 




0088 




0089 




0090 




0091 




0092 


0000 


0093 




0094 




0095 


0000 


0096 


0001 


0097 


0002 


0098 


0003 


0099 


0004 


0100 


0005 


0101 


0006 


0102 


0007 


0103 


0008 


0104 


0009 


0105 


000A 


0106 


000B 


0107 


000D 


0108 


000F 


0109 


0011 


0110 




0111 


0013 


0112 


0017 


0113 


0019 


0114 


001B 


0115 


001D 


0116 


001F 


0117 


0021 


0118 


0023 


0119 


0025 


0120 


0027 


0121 


0029 


0122 


002B 


0123 


002D 


0124 


002F 


0125 


0031 


0126 


0033 


0127 


0035 


0128 


0037 


0129 


0039 


0130 


003B 


0131 


003D 


0132 


003F 


0133 




0134 




0135 




0136 




0137 


0040 


0138 


0041 


0139 


0042 


0140 


0043 


0141 


0044 


0142 




0143 


0045 


0144 


0046 


0145 


0047 


0146 


0048 


0147 




0148 


004A 



0034 


BLOCK 6.4 


EQU 


$34 


0035 


BLOCK 6.5 


EQU 


$35 


0036 


BLOCK 6.6 


EQU 


$36 


0037 


BLOCK 6.7 


EQU 


$37 




* BLOCKS $48-$4F ARI 


0038 


BLOCK7.0 


EQU 


$38 


0039 


BL0CK7.1 


EQU 


$39 


003A 


BL0CK7.2 


EQU 


$3A 


003B 


BL0CK7.3 


EQU 


$3B 


003C 


BL0CK7.4 


EQU 


$3C 


003D 


BL0CK7.5 


EQU 


$3D 


003E 


BL0CK7.6 


EQU 


$3E 


003F 


BL0CK7.7 


EQU 


$3F 



GET/PUT BUFFER 

STACK AREA FOR HI -RES GRAPHICS COMMAND 

CHARACTER POINTERS 

UNUSED BY BASIC 



0000 





ORG 







SETDP 


ENDFLG 


RMB 


1 


CHARAC 


RMB 


1 


ENDCUR 


RMB 


1 


TMPLOC 


RMB 


1 


IFCTR 


RMB 


1 


DIMFLG 


RMB 


1 


VALTYP 


RMB 


1 


GARBFL 


RMB 


1 


ARYDIS 


RMB 


1 


INPFLG 


RMB 


1 


RELFLG 


RMB 


1 


TEMPPT 


RMB 


2 


LASTPT 


RMB 


2 


TEMPTR 


RMB 


2 


TMPTR1 


RMB 


2 


** FLOATING POINT 


FPA2 


RMB 


4 


BOTSTK 


RMB 


2 


TXTTAB 


RMB 


2 


VARTAB 


RMB 


2 


ARYTAB 


RMB 


2 


ARYEND 


RMB 


2 


FRETOP 


RMB 


2 


STRTAB 


RMB 


2 


FRESPC 


RMB 


2 


MEMSIZ 


RMB 


2 


OLDTXT 


RMB 


2 


BINVAL 


RMB 


2 


OLDPTR 


RMB 


2 


TINPTR 


RMB 


2 


DATTXT 


RMB 


2 


DATPTR 


RMB 


2 


DATTMP 


RMB 


2 


VARNAM 


RMB 


2 


VARPTR 


RMB 


2 


VARDES 


RMB 


2 


RELPTR 


RMB 


2 


TRELFL 


RMB 


1 



STOP/END FLAG: POSITIVE=STOP, NEG=END 
TERMINATOR FLAG 1 
TERMINATOR FLAG 2 
SCRATCH VARIABLE 

IF COUNTER - HOW MANY IF STATEMENTS IN A LINE 
*DV* ARRAY FLAG 0=EVALUATE, 1=DI MENSI ON I NG 
*DV* *PV TYPE FLAG: 0=NUMERIC, $FF=STRING 
*TV STRING SPACE HOUSEKEEPING FLAG 
DISABLE ARRAY SEARCH: 00=ALLOW SEARCH 
*TV INPUT FLAG: READ=0, INPUTO0 
*TV RELATIONAL OPERATOR FLAG 
*PV TEMPORARY STRING STACK POINTER 
*PV ADDR OF LAST USED STRING STACK ADDRESS 
TEMPORARY POINTER 

TEMPORARY DESCRIPTOR STORAGE (STACK SEARCH) 
ACCUMULATOR #2 (MANTISSA ONLY) 

FLOATING POINT ACCUMULATOR #2 MANTISSA 

BOTTOM OF STACK AT LAST CHECK 

*PV BEGINNING OF BASIC PROGRAM 

*PV START OF VARIABLES 

*PV START OF ARRAYS 

*PV END OF ARRAYS (+1) 

*PV START OF STRING STORAGE (TOP OF FREE RAM) 

*PV START OF STRING VARIABLES 

UTILITY STRING POINTER 

*PV TOP OF STRING SPACE 

SAVED LINE NUMBER DURING A "STOP" 

BINARY VALUE OF A CONVERTED LINE NUMBER 

SAVED INPUT PTR DURING A "STOP" 

TEMPORARY INPUT POINTER STORAGE 

*PV 'DATA' STATEMENT LINE NUMBER POINTER 

*PV 'DATA' STATEMENT ADDRESS POINTER 

DATA POINTER FOR 'INPUT' & 'READ' 

*TV TEMP STORAGE FOR A VARIABLE NAME 

*TV POINTER TO A VARIABLE DESCRIPTOR 

TEMP POINTER TO A VARIABLE DESCRIPTOR 

POINTER TO RELATIONAL OPERATOR PROCESSING ROUTINE 

TEMPORARY RELATIONAL OPERATOR FLAG BYTE 



* FLOATING POINT ACCUMULATORS #3,4 & 5 ARE MOSTLY 

* USED AS SCRATCH PAD VARIABLES. 

** FLOATING POINT ACCUMULATOR #3 :PACKED: ($40-$44) 

V40 

V41 

V42 

V43 

V44 

** FLOATING POINT ACCUMULATOR #4 :PACKED: ($45-$49) 

V45 RMB 1 

V46 RMB 1 

V47 RMB 1 

V48 RMB 2 

** FLOATING POINT ACCUMULATOR #5 : PACKED: ($4A $4E) 



RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 



V4A 



RMB 
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0149 


004B 


0150 


004D 


0151 




0152 


004F 


0153 


0050 


0154 


0054 


0155 


0055 


0155 


0055 


0157 


005B 


0158 




0159 


005C 


0150 


005D 


0151 


0051 


0152 




0153 


0052 


0154 


0053 


0155 


0054 


0155 


0055 


0157 


0058 


0158 


005A 


0159 


005B 


0170 


005C 


0171 


005D 


0172 


005E 


0173 


005F 


0174 




0175 


0070 


0175 


0071 


0177 


0072 


0178 


0074 


0179 


0075 


0180 


0078 


0181 


0079 


0182 


007A 


0183 


007C 


0184 


007D 


0185 


007E 


0185 


0080 


0187 


0081 


0188 


0082 


0189 


0083 


0190 


0084 


0191 


0085 


0192 


0085 


0193 


0087 


0194 


0088 


0195 


008A 


0195 


008C 


0197 


008D 


0198 




0199 




0200 




0201 




0202 


008F 


0203 


0090 


0204 


0091 


0205 


0092 


0205 


0094 


0207 


0095 


0208 


0097 


0209 


0099 


0210 


009A 


0211 


009B 


0212 


009C 


0213 


009D 


0214 




0215 




0215 




0217 




0218 




0219 


009F 0C A7 


0220 


00A1 26 02 


0221 


00A3 0C A6 


0222 


00A5 B6 



V4B 


RMB 


2 


V4D 


RMB 


2 


** FLOATING POINT 


FP0EXP 


RMB 


1 


FPA0 


RMB 


4 


FP0SGN 


RMB 


1 


COEFCT 


RMB 


1 


STRDES 


RMB 


5 


FPCARY 


RMB 


1 


** FLOATING POINT 


FP1EXP 


RMB 


1 


FPA1 


RMB 


4 


FP1SGN 


RMB 


1 


RESSGN 


RMB 


1 


FPSBYT 


RMB 


1 


COEFPT 


RMB 


2 


LSTTXT 


RMB 


2 


CURLIN 


RMB 


2 


DEVCFW 


RMB 


1 


DEVLCF 


RMB 


1 


DEVPOS 


RMB 


1 


DEVWID 


RMB 


1 


PRTDEV 


RMB 


1 


DEVNUM 


RMB 


1 


CINBFL 


RMB 


1 


RSTFLG 


RMB 


1 


RSTVEC 


RMB 


2 


TO PRAM 


RMB 


2 




RMB 


2 


FILSTA 


RMB 


1 


CINCTR 


RMB 


1 


CINPTR 


RMB 


2 


BLKTYP 


RMB 


1 


BLKLEN 


RMB 


1 


CBUFAD 


RMB 


2 


CCKSUM 


RMB 


1 


CSRERR 


RMB 


1 


CPULWD 


RMB 


1 


CPERTM 


RMB 


1 


CBTPHA 


RMB 


1 


CLSTSN 


RMB 


1 


GRBLOK 


RMB 


1 


IKEYIM 


RMB 


1 


CURPOS 


RMB 


2 


ZERO 


RMB 


2 


SNDTON 


RMB 


1 


SNDDUR 


RMB 


2 



ACCUMULATOR #0 



*PV FLOATING POINT ACCUMULATOR #0 
*PV FLOATING POINT ACCUMULATOR #0 
*PV FLOATING POINT ACCUMULATOR #0 
POLYNOMIAL COEFFICIENT COUNTER 
TEMPORARY STRING DESCRIPTOR 
FLOATING POINT CARRY BYTE 



ACCUMULATOR #1 



CMPMID 


RMB 


1 


CMP0 


RMB 


1 


CMP1 


RMB 


1 


SYNCLN 


RMB 


2 


BLKCNT 


RMB 


1 


LPTBTD 


RMB 


2 


LPTLND 


RMB 


2 


LPTCFW 


RMB 


1 


LPTLCF 


RMB 


1 


LPTWID 


RMB 


1 


LPTPOS 


RMB 


1 


EXECJP 


RMB 


2 



*PV FLOATING POINT ACCUMULATOR #1 
*PV FLOATING POINT ACCUMULATOR #1 
*PV FLOATING POINT ACCUMULATOR #1 



EXPONENT 
MANTISSA 
SIGN 



EXPONENT 
MANTISSA 
SIGN 



SIGN OF RESULT OF FLOATING POINT OPERATION 

FLOATING POINT SUB BYTE (FIFTH BYTE) 

POLYNOMIAL COEFFICIENT POINTER 

CURRENT LINE POINTER DURING LIST 

*PV CURRENT LINE # OF BASIC PROGRAM, $FFFF = DIRECT 

*TV TAB FIELD WIDTH 

*TV TAB ZONE 

*TV PRINT POSITION 

*TV PRINT WIDTH 

*TV PRINT DEVICE: 0=NOT CASSETTE, -1=CASSETTE 

*PV DEVICE NUMBER: -3=DL0AD, -2=PRINTER, 

-1=CASSETTE, 0=SCREEN, 1-15=DISK 
*PV CONSOLE IN BUFFER FLAG: 00=NOT EMPTY, $FF=EMPTY 
*PV WARM START FLAG: $55=WARM, OTHER=COLD 
*PV WARM START VECTOR - JUMP ADDRESS FOR WARM START 
*PV TOP OF RAM 
SPARE: UNUSED VARIABLES 

*PV FILE STATUS FLAG: 0=CLOSED, 1=INPUT, 2=OUTPUT 
*PV CONSOLE IN BUFFER CHAR COUNTER 
*PV CONSOLE IN BUFFER POINTER 

*TV CASS BLOCK TYPE: 0=HEADER, 1=DATA, $FF=EOF 
*TV CASSETTE BYTE COUNT 
*TV CASSETTE LOAD BUFFER POINTER 
*TV CASSETTE CHECKSUM BYTE 
*TV ERROR FLAG/CHARACTER COUNT 
*TV PULSE WIDTH COUNT 
*TV BIT COUNTER 
*TV BIT PHASE FLAG 
*TV LAST SINE TABLE ENTRY 

*TV GRAPHIC BLOCK VALUE FOR SET, RESET AND POINT 
*TV INKEY$ RAM IMAGE 
*PV CURSOR LOCATION 

*PV DUMMY - THESE TWO BYTES ARE ALWAYS ZERO 
*TV TONE VALUE FOR SOUND COMMAND 
*TV DURATION VALUE FOR SOUND COMMAND 



** THESE BYTES ARE MOVED DOWN 



FROM ROM 
INIT 
VALUE 
18 
24 
10 
128 
11 
88 
1 

16 
112 
132 

LB4AA 



DESCRIPTION 

*PV 1200/2400 HERTZ PARTITION 

*PV UPPER LIMIT OF 1200 HERTZ PERIOD 

*PV UPPER LIMIT OF 2400 HERTZ PERIOD 

*PV NUMBER OF $55 'S TO CASSETTE LEADER 

*PV CURSOR BLINK DELAY 

*PV BAUD RATE CONSTANT (600) 

*PV PRINTER CARRIAGE RETURN DELAY 

*PV TAB FIELD WIDTH 

*PV LAST TAB ZONE 

*PV PRINTER WIDTH 

*PV LINE PRINTER POSITION 

*PV JUMP ADDRESS FOR EXEC COMMAND 



** THIS ROUTINE PICKS UP THE NEXT INPUT CHARACTER FROM 
** BASIC. THE ADDRESS OF THE NEXT BASIC BYTE TO BE 
** INTERPRETED IS STORED AT CHARAD. 



GETNCH INC <CHARAD+1 

BNE GETCCH 

INC <CHARAD 

GETCCH FCB $B6 



*PV INCREMENT LS BYTE OF INPUT POINTER 
*PV BRANCH IF NOT ZERO (NO CARRY) 
*PV INCREMENT MS BYTE OF INPUT POINTER 
*PV OP CODE OF LDA EXTENDED 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0223 


00A6 


0224 




0225 




0226 


00A8 


0227 




0228 


00AB 


0229 


00AC 


0230 


00AD 


0231 


00AE 


0232 




0233 




0234 


00AF 


0235 


00B0 


0235 


00B2 


0237 


00B3 


0238 


00B4 


0239 


00B5 


0240 


00B6 


0241 


00B7 


0242 


00B9 


0243 


00BA 


0244 


00BC 


0245 


00BD 


0246 


00BF 


0247 


00C1 


0248 


00C2 


0249 


00C3 


0250 


00C5 


0251 


00C7 


0252 


00C9 


0253 




0254 




0255 


00CB 


0256 


00CD 


0257 


00CF 


0258 


00D1 


0259 


00D3 


0260 


00D4 


0261 


00D5 


0262 


00D6 


0263 


00D7 


0264 


00D8 


0265 


00D9 


0266 


00DA 


0267 




0268 


00DB 


0269 


00DC 


0270 


00DE 


0271 


00DF 


0272 


00E0 


0273 


00E1 


0274 


00E2 


0275 


00E3 


0276 


00E5 


0277 


00E6 


0278 


00E6 


0279 


00E7 


0280 


00E7 


0281 


00E8 


0282 


00E9 


0283 




0284 




0285 


00EA 


0286 


00EB 


0287 


00EC 


0288 


00ED 


0289 


00EE 


0290 


00F0 


0291 




0292 


00F1 


0293 




0294 


00F3 


0295 




0296 





CHARAD 



7E AA 1A 



JMP BROMHK 



VAB 


RMB 


1 


VAC 


RMB 


1 


VAD 


RMB 


1 


VAE 


RMB 


1 


* EXTENDED BASIC Vi 


TRCFLG 


RMB 


1 


USRADR 


RMB 


2 


FORCOL 


RMB 


1 


BAKCOL 


RMB 


1 


WCOLOR 


RMB 


1 


ALLCOL 


RMB 


1 


PMODE 


RMB 


1 


ENDGRP 


RMB 


2 


HORBYT 


RMB 


1 


BEGGRP 


RMB 


2 


GRPRAM 


RMB 


1 


HORBEG 


RMB 


2 


VERBEG 


RMB 


2 


CSSYAL 


RMB 


1 


SETFLG 


RMB 


1 


HOREND 


RMB 


2 


VEREND 


RMB 


2 


HORDEF 


RMB 


2 


VERDEF 


RMB 


2 


* EXTENDED BASIC Si 


VCB 


RMB 


2 


VCD 


RMB 


2 


VCF 


RMB 


2 


VD1 


RMB 


2 


VD3 


RMB 


1 


VD4 


RMB 


1 


VD5 


RMB 


1 


VD6 


RMB 


1 


VD7 


RMB 


1 


VD8 


RMB 


1 


VD9 


RMB 


1 


VDA 


RMB 


1 


CHGFLG 


RMB 


1 


TMPSTK 


RMB 


2 


OCTAVE 


RMB 


1 


VOLHI 


RMB 


1 


VOLLOW 


RMB 


1 


NOTELN 


RMB 


1 


TEMPO 


RMB 


1 


PLYTMR 


RMB 


2 


DOTYAL 


RMB 


1 


HRMODE 


EQU 


* 


DLBAUD 


RMB 


1 


HRWIDTH 


EQU 


* 


TIMOUT 


RMB 


1 


ANGLE 


RMB 


1 


SCALE 


RMB 


1 


* DSKCON 


VARIABLES 


DCOPC 


RMB 


1 


DCDRV 


RMB 


1 


DCTRK 


RMB 


1 


DSEC 


RMB 


1 


DCBPT 


RMB 


2 


DCSTA 


RMB 


1 


FCBTMP 


RMB 


2 




RMB 


13 



*PV THESE 2 BYTES CONTAIN ADDRESS OF THE CURRENT 
CHARACTER WHICH THE BASIC INTERPRETER IS 
PROCESSING 

JUMP BACK INTO THE BASIC RUM 

= LOW ORDER FOUR BYTES OF THE PRODUCT 
= OF A FLOATING POINT MULTIPLICATION 
= THESE BYTES ARE USE AS RANDOM DATA 
= BY THE RND STATEMENT 



*PV TRACE FLAG 0=OFF ELSE=ON 

*PV ADDRESS OF THE START OF USR VECTORS 

*PV FOREGROUND COLOR 

*PV BACKGROUND COLOR 

*TV WORKING COLOR BEING USED BY EX BASIC 

*TV ALL PIXELS IN THIS BYTE SET TO COLOR OF VB3 

*PV PMODE'S MODE ARGUMENT 

*PV END OF CURRENT GRAPHIC PAGE 

*PV NUMBER OF BYTES/HORIZONTAL GRAPHIC LINE 

*PV START OF CURRENT GRAPHIC PAGE 

*PV START OF GRAPHIC RAM (MS BYTE) 

*DV* *PV HORIZ COORD - START POINT 

*DV* *PV VERT COORD - START POINT 

*PV SCREEN'S COLOR SET ARGUMENT 

*PV PRESET/PSET FLAG: 0=PRESET, 1=PSET 

*DV* *PV HORIZ COORD - ENDING POINT 

*DV* *PV VERT COORD - ENDING POINT 

*PV HORIZ COORD - DEFAULT COORD 

*PV VERT COORD - DEFAULT COORD 



*TV FLAG TO INDICATE IF GRAPHIC DATA HAS BEEN CHANGED 

*TV STACK POINTER STORAGE DURING PAINT 

*PV OCTAVE VALUE (PLAY) 

*DV* *PV VOLUME HIGH VALUE (PLAY) 

*DV* *PV VOLUME LOW VALUE (PLAY) 

*PV NOTE LENGTH (PLAY) 

*PV TEMPO VALUE (PLAY) 

*TV TIMER FOR THE PLAY COMMAND 

*TV DOTTED NOTE TIMER SCALE FACTOR 

SUPER EXTENDED BASIC HI-RES MODE 

*DV* *PV DLOAD BAUD RATE CONSTANT $B0=300, $2C=1200 

SUPER EXTENDED BASIC HI -RES TEXT MODE 

*DV* *PV DLOAD TIMEOUT CONSTANT 

*DV* *PV ANGLE VALUE (DRAW) 

*DV* *PV SCALE VALUE (DRAW) 



*PV DSKCON OPERATION CODE 0-3 

*PV DSKCON DRIVE NUMBER 3 

*PV DSKCON TRACK NUMBER 34 

*PV DSKCON SECTOR NUMBER 1-18 

*PV DSKCON DATA POINTER 

*PV DSKCON STATUS BYTE 



TEMPORARY FCB POINTER 
SPARE: UNUSED VARIABLES 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0297 




0298 




0299 


0100 


0300 


0103 


0301 


0106 


0302 


0109 


0303 


010C 


0304 


010F 


0305 




0306 


0112 


0307 


0112 


0308 




0309 




0310 


0115 


0311 


0116 


0312 


011A 


0313 


011B 


0314 


011D 


0315 




0315 




0317 




0318 




0319 




0320 




0321 




0322 




0323 




0324 




0325 




0326 




0327 




0328 




0329 




0330 




0331 




0332 




0333 




0334 




0335 




0336 




0337 




0338 




0339 




0340 




0341 




0342 


0120 


0343 


012A 


0344 


0134 


0345 




0346 




0347 


013E 


0348 


0140 


0349 


0142 


0350 


0144 


0351 


0146 


0352 


0148 


0353 


014A 


0354 


014C 


0355 


014E 


0356 


0150 


0357 




0358 




0359 




0360 




0361 




0362 




0363 




0364 




0365 




0366 




0367 




0368 




0369 




0370 





SW3VEC 


RMB 


3 


SW2VEC 


RMB 


3 


SWIVEC 


RMB 


3 


NMIVEC 


RMB 


3 


IRQVEC 


RMB 


3 


FRQVEC 


RMB 


3 


TIMVAL 






USRJMP 


RMB 


3 


* 


RMB 


2 


* 


RMB 


1 


RVSEED 


RMB 


1 




RMB 


4 


CASFLG 


RMB 


1 


DEBVAL 


RMB 


2 


EXPJMP 


RMB 


3 


** 







BASIC EXBASKDOSBASIC 



$XXXX $XXXX $3B3B SWI3 VECTOR 
$XXXX $XXXX $3B3B SWI2 VECTOR 
$XXXX $XXXX $XXXX SWI VECTOR 



$XXXX 

$A9B3 $894C 

$A0F6 $A0F6 



$XXXX $D7AE NMI VECTOR 
D7BC IRQ VECTOR 
A0F6 FIRQ VECTOR 



JUMP ADDRESS FOR BASIC'S USR FUNCTION 

TIMER VALUE FOR EXBAS 

UNUSED BY EXBAS OR DISK BASIC 

* FLOATING POINT RANDOM NUMBER SEED EXPONENT 

* MANTISSA: INITIALLY SET TO $804FC75259 
UPPER CASE/LOWER CASE FLAG: $FF=UPPER, 0=LOWER 
KEYBOARD DEBOUNCE DELAY (SET TO $45E) 

JUMP ADDRESS FOR EXPONENTIATION 

INITIALLY SET TO ERROR FOR BASIC, $8489 FOR EX BASIC 



*** COMMAND INTERPRETATION VECTOR TABLE 
** FOUR SETS OF 10 BYTE TABLES: 



** THE LAST USED TABLE MUST BE FOLLOWED BY A ZERO BYTE 

* THE JUMP TABLE VECTORS (3,4 AND 8,9) POINT TO THE JUMP TABLE FOR 

* THE FIRST TABLE. FOR ALL OTHER TABLES, THESE VECTORS POINT TO A 

* ROUTINE WHICH WILL VECTOR YOU TO THE CORRECT JUMP TABLE. 

* SUPER ENHANCED BASIC HAS MODIFIED THIS SCHEME SO THAT THE USER 

* TABLE MAY NOT BE ACCESSED. ANY ADDITIONAL TABLES WILL HAVE TO BE 

* ACCESSED FROM A NEW COMMAND HANDLER. 

* BYTE DESCRIPTION 

* NUMBER OF RESERVED WORDS 

* 1,2 LOOKUP TABLE OF RESERVED WORDS 

* 3,4 JUMP TABLE FOR COMMANDS (FIRST TABLE) 

* VECTOR TO EXPANSION COMMAND HANDLERS (ALL BUT FIRST TABLE) 

* 5 NUMBER OF SECONDARY FUNCTIONS 

* 6,7 LOOKUP TABLE OF SECONDARY FUNCTIONS (FIRST TABLE) 

* VECTOR TO EXPANSION SECONDARY COMMAND HANDLERS (ALL BUT 

* FIRST TABLE) 

* 8,9 JUMP TABLE FOR SECONDARY FUNCTIONS 

* 10 BYTE - END OF TABLE FLAG (LAST TABLE ONLY) 



COMVEC 



USR FUNCTION VECTOR ADDRESSES (EX BASIC ONLY) 



RMB 


10 


RMB 


10 


RMB 


10 


JNCT 


ION ' 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 



BASIC'S TABLE 

EX BASIC'S TABLE 

DISC BASIC'S TABLE (UNUSED BY EX BASIC) 



USR 


VECTOR 


USR 


1 


USR 


2 


USR 


3 


USR 


4 


USR 


5 


USR 


6 


USR 


7 


USR 


8 


USR 


9 



*** THE ABOVE 20 BYTE USR ADDR VECTOR TABLE IS MOVED TO 
*** $95F-$972 BY DISC BASIC. THE 20 BYTES FROM $13E-$151 
*** ARE REDEFINED AS FOLLOWS: 



RMB 
FCB 
RMB 9 



10 



USER (SPARE) COMMAND INTERPRETATION TABLE SPACE 
END OF COMM INTERP TABLE FLAG 
UNUSED BY DISK BASIC 



COMMAND INTERPRETATION TABLE VALUES 

BYTE BASIC EX BASIDISK BASIC 

53 BASIC TABLE 

1,2 $AA66 

3,4 $AB67 



SUPER EXTENDED BASIC UNRAVELLED II 



0371 




0372 




0373 




0374 




0375 




0376 




0377 




0378 




0379 




0380 




0381 




0382 




0383 




0384 




0385 




0385 




0387 




0388 




0389 




0390 


0152 


0391 


015A 


0392 


015B 


0393 


015C 


0394 


015D 


0395 




0396 




0397 




0398 




0399 




0400 




0401 




0402 




0403 




0404 




0405 




0406 




0407 




0408 




0409 




0410 




0411 




0412 


015E 


0413 


0161 


0414 


0164 


0415 


0167 


0416 


016A 


0417 


016D 


0418 


0170 


0419 


0173 


0420 


0176 


0421 


0179 


0422 


017C 


0423 


017F 


0424 


0182 


0425 


0185 


0426 


0188 


0427 


018B 


0428 


018E 


0429 


0191 


0430 


0194 


0431 


0197 


0432 


019A 


0433 


019D 


0434 


01A0 


0435 




0436 




0437 




0438 


01A3 


0439 


01A6 


0440 




0441 


01A9 


0442 


01D1 


0443 


01DA 


0444 


02DA 



* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


KEYBUF 


RMB 


8 


POTVAL 


RMB 


1 




RMB 


1 




RMB 


1 




RMB 


1 



APPENDIX A 






MEMORY 


MAP 






20 








$AB1A 








$AA29 










25 




EX BASIC TABLE 




$8183 








$813C 


$CE2E 


($CF0A 2.1) 




14 








$821E 








$8168 


$CE56 


($CF32 2.1) 




19 (20 


2.1) 


DISK BASIC TABLE 




$C17F 








$C2C0 








6 








$C201 








$C236 







ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



KEYBOARD MEMORY BUFFER 
LEFT VERTICAL JOYSTICK DATA 
LEFT HORIZONTAL JOYSTICK DATA 
RIGHT VERTICAL JOYSTICK DATA 
RIGHT HORIZONTAL JOYSTICK DATA 



BASIC'S RAM VECTORS - INITIALIZED TO RTS BY COLOR BASIC 

25 SETS OF 3 BYTE INSTRUCTIONS WHICH ARE CALLED BY COLOR BASIC 

EXTENDED AND DISK BASIC. THEIR PURPOSE IS TO ALLOW ENHANCEMENTS (SUCH 

AS EX BASIC AND DOS BASIC) AS MORE ROMS ARE ADDED TO THE 

SYSTEM BY EFFECTIVELY ALLOWING MORE CODE TO BE ADDED TO THE 

ROUTINES IN EARLIER ROMS. THIS NEW CODE IS LOCATED IN THE NEW ROMS 

AND THE ADDRESS TO GET TO THE NEW CODE IS IN BYTES 1 & 2 OF THE 

RAM VECTOR. BYTE WILL CONTAIN A $7E WHICH IS THE FIRST BYTE OF 

THE JMP INSTRUCTION. 

THE FIRST ADDRESS IN THIS TABLE IS THE ADDRESS IN BASIC WHICH 

CALLS THE RAM VECTOR, THE SECOND ADDRESS IS THE VALUE WHICH 

EX BASIC PUTS IN THE RAM VECTOR (IF ANY) AND THE THIRD ADDRESS 

IS THE VALUE WHICH DISK BASIC PUTS THERE (IF ANY) 



RVEC0 


RMB 


3 


RVEC1 


RMB 


3 


RVEC2 


RMB 


3 


RVEC3 


RMB 


3 


RVEC4 


RMB 


3 


RVEC5 


RMB 


3 


RVEC6 


RMB 


3 


RVEC7 


RMB 


3 


RVEC8 


RMB 


3 


RVEC9 


RMB 


3 


RVEC10 


RMB 


3 


RVEC11 


RMB 


3 


RVEC12 


RMB 


3 


RVEC13 


RMB 


3 


RVEC14 


RMB 


3 


RVEC15 


RMB 


3 


RVEC16 


RMB 


3 


RVEC17 


RMB 


3 


RVEC18 


RMB 


3 


RVEC19 


RMB 


3 


RVEC20 


RMB 


3 


RVEC21 


RMB 


3 


RVEC22 


RMB 


3 



RVEC23 


RMB 


3 


RVEC24 


RMB 


3 


STRSTK 


RMB 


8*5 


CFNBUF 


RMB 


9 


CASBUF 


RMB 


256 


LINHDR 


RMB 


2 



2.0 

$A5F6 

$A5B9 

$A35F 

$A282 

$A176 

$A3ED 

$A406 

$A426 

$A42D 

$B918 

$B061 

$A549 

$A390 

$A4BF 

$A5CE 

$B223 

$AC46 

$AC49 

$AE75 

$BD22 

$AD9E 

$A8C4 

$A910 

$8162 

$8AFA 

$975C 

$B821 

$B7C2 



2.1 



$8273 
$8CF1 



$8286 
$8E90 



$8846 

$88F0 
$829C 
$87EF 
$82B9 



$8304 



1.0 

$C426 

$C838 

$C843 

$CB4A 

$C58F 

$C818 

$C81B 

$CA3B 

$CA4B 

$8E90 

$CC5B 

$C859 

$C6B7 

$CA36 

$CA60 

$CDF6 

$C6B7 

$C24D 

$C990 



1.1 

$C44B 

$C888 

$C893 

$CC1C 

$C5BC 

$C848 

$C84B 

$CAE9 

$CAF9 

$8E90 

$CD35 

$C8A9 

$C6E4 

$CAE4 

$C90C 

$CED2 

$C6E4 

$C265 

$CA3E 



$C29A $C2B2 



OPEN COMMAND 

DEVICE NUMBER VALIDITY CHECK 

SET PRINT PARAMETERS 

CONSOLE OUT 

CONSOLE IN 

INPUT DEVICE NUMBER CHECK 

PRINT DEVICE NUMBER CHECK 

CLOSE ALL FILES 

CLOSE ONE FILE 

PRINT 

INPUT 

BREAK CHECK 

INPUTTING A BASIC LINE 

TERMINATING BASIC LINE INPUT 

EOF COMMAND 

EVALUATE AN EXPRESSION 

RESERVED FOR ON ERROR GOTO COMMAND 

ERROR DRIVER 

RUN 

ASCII TO FLOATING POINT CONVERSION 

BASIC'S COMMAND INTERPRETATION LOOP 

RESET/SET/POINT COMMANDS 

CLS 

EXBAS' SECONDARY TOKEN HANDLER 

EXBAS' RENUM TOKEN CHECK 

EXBAS' GET/PUT 

CRUNCH BASIC LINE 

UNCRUNCH BASIC LINE 



STRING DESCRIPTOR STACK 
CASSETTE FILE NAME BUFFER 
CASSETTE FILE DATA BUFFER 
LINE INPUT BUFFER HEADER 



SUPER EXTENDED BASIC UNRAVELLED II 
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0445 


02DC 


0446 


03D7 


0447 




0448 


0400 


0449 




0450 




0451 


0600 


0452 


0700 


0453 


0800 


0454 


084A 


0455 


0894 


0455 


08DE 


0457 


0928 


0458 


0948 


0459 


094A 


0450 


094C 


0461 


0954 


0462 


0957 


0463 




0464 


0958 


0465 


0959 


0466 




0467 


095A 


0468 


095B 


0469 


095C 


0470 


095D 


0471 


095E 


0472 


095F 


0473 




0474 




0475 


0973 


0476 


0974 


0477 


0976 


0478 




0479 


0977 


0480 


0978 


0481 




0482 


097A 


0483 




0484 


097C 


0485 


097E 


0486 


0982 


0487 


0983 


0488 




0489 


0985 


0490 


0986 


0491 


0987 


0492 


0988 


0493 




0494 




0495 




0496 


0989 


0497 




0498 




0499 




0500 




0501 




0502 




0503 




0504 




0505 




0506 




0507 




0508 




0509 




0510 




0511 




0512 




0513 




0514 




0515 




0516 




0517 




0518 





LINBUF 


RMB 


LBUFMX+1 


STRBUF 


RMB 


41 


VIDRAM 


RMB 


200 


*START OF 


ADDITIONAL RAM 


DBUF0 


RMB 


SECLEN 


DBUF1 


RMB 


SECLEN 


FATBL0 


RMB 


FATLEN 


FATBL1 


RMB 


FATLEN 


FATBL2 


RMB 


FATLEN 


FATBL3 


RMB 


FATLEN 


FCBV1 


RMB 


16*2 


RNBFAD 


RMB 


2 


FCBADR 


RMB 


2 


DNAMBF 


RMB 


8 


DEXTBF 


RMB 


3 


DFLTYP 


RMB 


1 


DASCFL 


RMB 


1 


DRUNFL 


RMB 


1 


DEFDRV 


RMB 


1 


FCBACT 


RMB 


1 


DRESFL 


RMB 


1 


DLOADFL 


RMB 


1 


DMRGFL 


RMB 


1 


DUSRVC 


RMB 


20 


*** DISK 


FILE WORK AREA 


* EXISTING FILE 


V973 


RMB 


1 


V974 


RMB 


2 


V976 


RMB 


1 


* UNUSED FILE 




V977 


RMB 


1 


V978 


RMB 


2 



BASIC LINE INPUT BUFFER 
STRING BUFFER 

VIDEO DISPLAY AREA 

VARIABLE STORAGE (DISK BASIC ONLY) 
I/O BUFFER #0 
I/O BUFFER #1 

FILE ALLOCATION TABLE - DRIVE 

FILE ALLOCATION TABLE 

FILE ALLOCATION TABLE 

FILE ALLOCATION TABLE 



SYSTEM) 



SHUT DOWN ALL FCBS 
LOAD ERROR 



WFATVL 



RMB 



DFFLEN 


RMB 


2 


DR0TRK 


RMB 


4 


NMIFLG 


RMB 


1 


DNMIVC 


RMB 


2 


RDYTMR 


RMB 


1 


DRGRAM 


RMB 


1 


DVERFL 


RMB 


1 


ATTCTR 


RMB 


1 



DRIVE 

DRIVE 

DRIVE 
FILE BUFFER VECTORS (15 USER, 
START OF FREE RANDOM FILE BUFFER AREA 
START OF FILE CONTROL BLOCKS 
DISK FILE NAME BUFFER 
DISK FILE EXTENSION NAME BUFFER 
*DV* DISK FILE TYPE: 0=BASIC, 1=DATA, 2=MACHINE 

LANGUAGE, 3=TEXT EDITOR SOURCE FILE 
*DV* ASCII FLAG: 0=CRUNCHED OR BINARY, $FF=ASCII 
RUN FLAG: (IF BIT 1=1 THEN RUN, IF BIT 0=1, THEN CLOSE 
ALL FILES BEFORE RUNNING) 
DEFAULT DRIVE NUMBER 
NUMBER OF FCBS ACTIVE 
RESET FLAG: <>0 WILL CAUSE A 'NEW' 
LOAD FLAG: CAUSE A 'NEW' FOLLOWING 
MERGE FLAG: 0=N0 MERGE, $FF=MERGE 
DISK BASIC USR COMMAND VECTORS 
FOR DIRECTORY SEARCH 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

FIRST GRANULE NUMBER 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

WRITE FAT VALUE: NUMBER OF FREE GRANULES WHICH MUST BE TAKEN 

FROM THE FAT TO TRIGGER A WRITE FAT TO DISK SEQUENCE 

DIRECT ACCESS FILE RECORD LENGTH 

CURRENT TRACK NUMBER, DRIVES 0,1,2,3 

NMI FLAG: 0=DON'T VECTOR <>0=YECTOR OUT 

NMI VECTOR: WHERE TO JUMP FOLLOWING AN NMI 

INTERRUPT IF THE NMI FLAG IS SET 

MOTOR TURN OFF TIMER 

RAM IMAGE OF DSKREG ($FF40) 

VERIFY FLAG: 0=OFF, $FF=ON 

READ/WRITE ATTEMPT COUNTER: NUMBER OF TIMES THE 

DISK WILL ATTEMPT TO RETRIEVE OR WRITE DATA 

BEFORE IT GIVES UP AND ISSUES AN ERROR. 



DFLBUF RMB SECLEN 
*RANDOM FILE RESERVED AREA 
*FILE CONTROL BLOCKS AND BUFFERS 
*GRAPHIC PAGE RESERVED AREA 
*BASIC PROGRAM 
♦VARIABLE STORAGE AREA 
*ARRAY STORAGE AREA 

* FREE MEMORY 

*STACK 

*STRING SPACE 

*USER PROGRAM RESERVED AREA 



INITIALIZED TO SECLEN BY DISKBAS 
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0519 
0520 
0521 
0522 
0523 
0524 
0525 
0525 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0535 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0545 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0555 
0557 
0558 
0559 
0550 
0551 
0552 
0553 
0554 
0555 
0555 
0557 
0558 
0559 
0570 
0571 
0572 
0573 
0574 
0575 
0575 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0585 
0587 
0588 
0589 
0590 
0591 
0592 



8000 

8000 
A000 
C000 
C000 
E000 



FE00 
FE02 
FE03 
FE04 
FE05 
FE05 
FE08 
FE09 
FE0A 
FE0B 
FE0C 
FE0E 
FE10 
FEU 
FE13 
FE15 
FE17 
FE18 
FE19 
FE59 
FEED 

FEEE 

FEEE 
FEF1 
FEF4 
FEF7 
FEFA 
FEFD 



FF00 
FF00 



*END OF RAM 



ORG 



FF01 



FF02 





RMB 


$2000 




RMB 


$2000 


ROMPAK 


EQU 


* 


DOSBAS 


RMB 


$2000 




RMB 


$1F00 


* START OF ADDITIONAL 


H.CRSLOC 


RMB 


2 


H.CURSX 


RMB 


1 


H.CURSY 


RMB 


1 


H. COLUMN 


RMB 


1 


H.ROW 


RMB 


1 


H.DISPEN 


RMB 


2 


H.CRSATT 


RMB 


1 




RMB 


1 


H.FCOLOR 


RMB 


1 


H.BCOLOR 


RMB 


1 


H.ONBRK 


RMB 


2 


H.ONERR 


RMB 


2 


H. ERROR 


RMB 


1 


H.ONERRS 


RMB 


2 


H.ERLINE 


RMB 


2 


H.ONBRKS 


RMB 


2 


H.ERRBRK 


RMB 


1 


H.PCOUNT 


RMB 


1 


H.PBUF 


RMB 


80 




RMB 


132 


INT. FLAG 


RMB 


1 


* TABLE OF JUMP 


VECTO! 


INT. JUMP 






INT.SWI3 


RMB 


3 


INT.SWI2 


RMB 


3 


INT.FIRQ 


RMB 


3 


INT. IRQ 


RMB 


3 


INT.SWI 


RMB 


3 


INT.NMI 


RMB 


3 


* I/O AREA 





EXTENDED BASIC ROM 
COLOR BASIC ROM 



DISK BASIC ROM/ENHANCED BASIC INIT CODE 
ENHANCED BASIC 



IONAL VARIABLES USED BY SUPER EXTENDED BASIC 



CURRENT LOCATION OF CURSOR 

X POSITION OF CURSOR 

Y POSITION OF CURSOR 

COLUMNS ON HI-RES ALPHA SCREEN 

ROWS ON HI-RES ALPHA SCREEN 

END OF HI-RES DISPLAY SCREEN 

CURRENT CURSOR'S ATTRIBUTES 

UNUSED 

FOREGROUND COLOR 

BACKGROUND COLOR 

ON BRK GOTO LINE NUMBER 

ON ERR GOTO LINE NUMBER 

ERROR NUMBER ENCOUNTERED OR $FF (NO ERROR) 

ON ERR SOURCE LINE NUMBER 

LINE NUMBER WHERE ERROR OCCURRED 

ON BRK SOURCE LINE NUMBER 

STILL UNKNOWN, HAS TO DO WITH ERR, BRK 

PRINT COUNT, CHARACTERS TO BE HPRINTED 

PRINT BUFFER, HPRINT CHARS. STORED HERE 

UNUSED 

INTERRUPT VALID FLAG. 0=NOT VALID, $55=VALID 



VECTORS TO INTERRUPT SERVICING ROUTINES 



PIA0 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



EQU * 

KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 



PERIPHERAL INTERFACE ADAPTER ONE 

AND RIGHT JOYSTICK SWITCH 1 
AND LEFT JOYSTICK SWITCH 1 
AND RIGHT JOYSTICK SWITCH 2 
AND LEFT JOYSTICK SWITCH 2 



KEYBOARD ROW 7 

JOTSTICK COMPARISON IINPUT 

CONTROL OF HSYNC (53.5ps) = IRQ* TO CPU DISABLED 



INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SEL 1 

ALWAYS 1 

ALWAYS 1 

NOT USED 

HORIZONTAL SYNC INTERRUPT FLAG 



1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF HS 

1 = FLAG SET ON RISING EDGE OF HS 
= CHANGES FF00 TO DATA DIRECTION 
LSB OF TWO ANALOG MUX SELECT LINES 



KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 



KEYBOARD COLUMN 7 / RAM SIZE OUTPUT 
KEYBOARD COLUMN 8 
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ORIGIN:SPECTRAL ASSOC 
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0593 
0594 
0595 
0595 
0597 
0598 
0599 
0500 
0501 
0502 
0503 
0504 
0505 
0505 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0515 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0525 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0535 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0545 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0555 
0557 
0558 
0559 
0550 
0551 
0552 
0553 
0554 
0555 
0555 



FF03 



FF04 
FF20 
FF20 

FF20 



FF21 



FF22 



FF23 



FF24 
FF40 
FF40 

FF40 



FF41 



FF48 



BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



DA 
PIA1 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



PIA2 
DSKREG 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



CONTROL OF VSYNC (15.557ms) = IRQ* TO CPU DISABLED 



INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SEL 2 

ALWAYS 1 

ALWAYS 1 

NOT USED 

FIELD SYNC INTERRUPT FLAG 



1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF FS 

1 = FLAG SET ON RISING EDGE OF FS 
= CHANGES FF02 TO DATA DIRECTION 
MSB OF TWO ANALOG MUX SELECT LINES 



RMB 28 

EQU * 

CASSETTE DATA INPUT 
RS-232C DATA OUTPUT 
5 BIT D/A LSB 

5 BIT D/A 

6 BIT D/A 
6 BIT D/A 
5 BIT D/A 

5 BIT D/A MSB 



CONTROL OF CD 

(RS-232C STATUS) 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

CASSETTE MOTOR CONTROL 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CD INTERRUPT FLAG 

RS-232C DATA INPUT 

SINGLE BIT SOUND OUTPUT 

RAM SIZE INPUT 

RGB MONITOR SENSING INPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

CONTROL OF CARTRIDGE 

INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SOUND ENABLE 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CARTRIDGE INTERRUPT FLAG 



PIA0 IMAGES 



PERIPHERAL INTERFACE ADAPTER TWO 



FIRQ* TO CPU DISABLED 

FIRQ* TO CPU ENABLED 

FLAG SET ON FALLING EDGE OF CD 

FLAG SET ON RISING EDGE OF CD 

CHANGES FF20 TO DATA DIRECTION 

OFF 1 = ON 



CSS 

GM0 8 
GM1 8 
GM2 
A*/G 



UPPER/LOWER CASE* 
INVERT 



FIRQ* TO CPU DISABLED 

FIRQ* TO CPU ENABLED 

FLAG SET ON FALLING EDGE OF CART* 

FLAG SET ON RISING EDGE OF CART* 

CHANGES FF22 TO DATA DIRECTION 



RMB 28 

RMB 1 

DRIVE SELECT 
DRIVE SELECT 1 
DRIVE SELECT 2 
DRIVE MOTOR ENABLE 
WRITE PRECOMPENSATION 
DENSITY FLAG 
DRIVE SELECT 3 
HALT FLAG 



PIA1 IMAGES 



DISK CONTROL REGISTER 



MOTORS OFF 
NO PRECOMP 
SINGLE 



DISABLED 



1 = MOTORS ON 

1 = PRECOMP 

1 = DOUBLE 

1 = ENABLED 



RMB 



7 



DSKREG IMAGES 



* FLOPPY DISK CONTROLLER INTERNAL REGISTERS 

FDCREG RMB 1 STATUS/COMMAND REGISTER 
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0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 

0690 FF49 

0691 FF4A 

0692 FF4B 

0693 FF4C 
0694 

0695 FF50 

0696 FF60 

0697 FF61 

0698 FF62 

0699 FF63 
0700 

0701 FF68 

0702 FF69 

0703 FF6A 

0704 FF6B 

0705 FF6C 

0706 FF70 

0707 FF7D 

0708 FF7E 

0709 FF7F 
0710 

0711 FF80 
0712 
0713 

0714 FF90 
0715 

0716 FF90 BIT0 

0717 BIT1 

0718 BIT2 

0719 BIT3 

0720 BIT4 

0721 BIT5 

0722 BIT6 

0723 BIT7 
0724 

0725 

0726 

0727 

0728 

0729 

0730 FF91 INIT1 

0731 

0732 FF91 BIT0 

0733 BIT1 

0734 BIT2 

0735 BIT3 

0736 BIT4 

0737 BIT5 

0738 BIT6 

0739 BIT7 
0740 



D II 






APPENDIX A 
MEMORY MAP 


ORI 
REVISED:03/14/ 


COMMANDS 


TYPE 


COMMAND 


CODE 






I 


RESTORE 


$03 






I 


SEEK 


$17 






I 


STEP 


$23 






I 


STEP IN 


$43 






I 


STEP OUT 


$53 






II 


READ SECTOR 


$80 






II 


WRITE SECTOR 


$A0 






III 


READ ADDRESS 


$C0 






III 


READ TRACK 


$E4 






III 


WRITE TRACK 


$F4 






IV 


FORCE INTERRUPT 


$D0 




STATUS 


BIT 


TYPE I 


READ ADDRESS/SECTOR/TRACK 


WRITE SECTOR/TRACK 




S0 


BUSY 


BUSY 


BUSY 




SI 


INDEX 


DRQ 


DRQ 




S2 


TRACK 


LOST DATA 


LOST DATA 




S3 


CRC ERROR 


CRC ERROR (EXCEPT TRACK) 


CRC ERROR (EXCEPT TRACK) 




S4 


SEEK ERROR 


RNF (EXCEPT TRACK) 


RNF (EXCEPT TRACK) 




S5 


HEAD LOADED 


RECORD TYPE (SECTOR ONLY) 


WRITE FAULT 




S6 


WRITE PROTECT 




WRITE PROTECT 




S7 


NOT READY 


NOT READY 


NOT READY 




RMB 


1 


TRACK REGISTER 






RMB 


1 


SECTOR REGISTER 






RMB 


1 


DATA REGISTER 






RMB 


4 


FDCREG IMAGES 






RMB 


16 


UNUSED SPACE 






RMB 


1 


X COORDINATE FOR X-PAD 






RMB 


1 


Y COORDINATE FOR X-PAD 






RMB 


1 


STATUS REGISTER FOR X-PAD 






RMB 


5 


UNUSED 




* RS-232 


PROGRAM PAK 








RMB 


1 


READ/WRITE DATA REGISTER 






RMB 


1 


STATUS REGISTER 






RMB 


1 


COMMAND REGISTER 






RMB 


1 


CONTROL REGISTER 






RMB 


4 








RMB 


13 








RMB 


1 


SOUND/SPEECH CARTRIDGE RESET 




RMB 


1 


SOUND/SPEECH CARTRIDGE READ/WRITE 




RMB 


1 


MULTI-PAK PROGRAMMING REGISTER 




RMB 


64 


RESERVED FOR FUTURE EXPANSION 
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* VIDEO CONTROL REGISTERS 
INIT0 RMB 1 



MC0 
MCI 
MC2 
MC3 
FEN 
IEN 
M/P 
COCO 

MCI MC0 

x 

1 
1 1 



RMB 
TR 



TINS 



INITIALIZATION REGISTER 

ROM MAP CONTROL (SEE TABLE BELOW) 

ROM MAP CONTROL (SEE TABLE BELOW) 

STANDARD SCS 

1 = DRAM AT 0XFEXX IS CONSTANT 

1 = CHIP FIRQ OUTPUT ENABLED 

1 = CHIP IRQ OUTPUT ENABLED 

1 = MMU ENABLED 

1 = COCO 1 & 2 COMPATIBLE 

ROM MAPPING 

16K INTERNAL, 16K EXTERNAL 

32K INTERNAL 

32L EXTERNAL (EXCEPT FOR VECTORS) 

INITIALIZATION REGISTER 1 

MMU TASK REGISTER SELECT 



TIMER INPUT SELECT: l=70ns, 0=63ns 
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0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0755 
0757 
0758 
0759 
0750 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 



FF92 
FF92 



IRQENR 



RMB 



FF93 
FF93 



FF94 
FF96 

FF98 

FF98 



FF99 
FF99 



0801 
0802 
0803 
0804 
0805 
0806 
0807 



0809 
0810 
0811 
0812 
0813 
0814 



BIT0 


EI0 




BIT1 


Ell 




BIT2 


EI2 




BIT3 


VBORD 




BIT4 


HBORD 




BIT5 


TMR 




BIT6 






BIT7 






FIRQENR 


RMB 


1 


BIT0 


EI0 




BIT1 


Ell 




BIT2 


EI2 




BIT3 


VBORD 




BIT4 


HBORD 




BIT5 


TMR 




BIT6 






BIT7 






V. TIMER 


RMB 


2 




RMB 


2 


VIDEOREG 


RMB 


1 


BIT0 


LPR0 




BIT1 


LPR1 




BIT2 


LPR2 




BIT3 


H50 




BIT4 


MOCH 




BIT5 


BPI 




BIT6 






BIT7 


BP 




LPR2 


LPR1 


LPR0 

















1 





1 








1 


1 


1 








1 





1 


1 


1 





1 


1 


1 


VIDEOREG 


RMB 


1 


BIT0 


CRES0 




BIT1 


CRES1 




BIT2 


HRES0 




BIT3 


HRES1 




BIT4 


HRES2 




BIT5 


LPF0 




BIT6 


LPF1 




BIT7 








LPF1 


LPF0 















1 




1 







1 


1 



IRQ INTERRUPT ENABLE REGISTER 

CARTRIDGE IRQ ENABLED 
KEYBOARD IRQ ENABLED 
SERIAL DATA IRQ ENABLED 
VERTICAL BORDER IRQ ENABLED 
HORIZONTAL BORDER IRQ ENABLED 
INTERRUPT FROM TIMER ENABLED 



FIRQ INTERRUPT ENABLE REGISTER 

CARTRIDGE FIRQ ENABLED 
KEYBOARD FIRQ ENABLED 
SERIAL DATA FIRQ ENABLED 
VERTICAL BORDER FIRQ ENABLED 
HORIZONTAL BORDER FIRQ ENABLED 
INTERRUPT FROM TIMER ENABLED 



TIMER REGISTER 

RESERVED FOR FUTURE EXPANSION 

VIDEO MODE REGISTER 

LINES PER ROW (SEE TABLE BELOW) 
LINES PER ROW (SEE TABLE BELOW) 
LINES PER ROW (SEE TABLE BELOW) 
1 = 50 Hz VERTICAL REFRESH 
1 = MONOCHROME (ON COMPOSITE) 
1 = BURST PHASE INVERTED 



ALPHA, 



BIT PLANE 



LINES PER CHARACTER ROW 

1 (GRAPHICS MODES) 

2 (COCO 1 & 2 ONLY) 

3 (COCO 1 & 2 ONLY) 



(RESERVED) 

12 

(RESERVED) 

VIDEO MODE REGISTER 

COLOR RESOLUTION 

COLOR RESOLUTION 

HORIZONTAL RESOLUTION 

HORIZONTAL RESOLUTION 

HORIZONTAL RESOLUTION 

LINES PER FIELD (SEE TABLE BELOW) 

LINES PER FIELD (SEE TABLE BELOW) 



LINES PER FIELD 

192 

200 

RESERVED 

225 



VIDEO RESOLUTION 

ALPHA: BP = 0, COCO 

MODE 

32 CHARACTER 

40 CHARACTER 

80 CHARACTER 1 
GRAPHICS: BP = 1, COCO = 

PIXELSxCOLORS HRES2 HRES1 HRES0 CRES1 

640x4 1110 

640x2 10 10 



HRES2 HRES1 HRES0 CRES1 CRES0 
1 

1 1 

1 1 



CRES0 
1 
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0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0825 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 





APPENDIX A 




MEMORY MAP 


512x4 


1 1 


512x2 


1 


320x16 


1 1 


320x4 


1 


256x16 


1 1 


256x4 


1 


256x2 


1 


160x16 


1 
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COCO MODE SELECTION 





DISPLAY MODE 




REG. 


FF22 










V2 


VI 


V0 


7 


6 


5 


4 


3 


ALPHA 














X 


X 





CSS 


ALPHA INVERTED 














X 


X 





CSS 


SEMIGRAPHICS 4 














X 


X 





X 


64x64 COLOR GRAPHICS 








1 


1 











CSS 


128x64 GRAPHICS 








1 


1 








1 


CSS 


128x64 COLOR GRAPHICS 





1 





1 





1 





CSS 


128x96 GRAPHICS 





1 


1 


1 





1 


1 


CSS 


128x96 COLOR GRAPHICS 


1 








1 


1 








CSS 


128x96 GRAPHICS 


1 





1 


1 


1 





1 


CSS 


128x96 COLOR GRAPHICS 


1 


1 





1 


1 


1 





CSS 


256x192 GRAPHICS 


1 


1 





1 


1 


1 


1 


CSS 



ALPHANUMERIC MODES 

TEXT SCREEN MEMORY 



0881 
0882 
0883 
0884 
0885 
0886 
0887 



EVEN 


BYTE 












BIT0 






CHARACTER BIT 






BIT1 






CHARACTER BIT 1 






BIT2 






CHARACTER BIT 2 






BIT3 






CHARACTER BIT 3 






BIT4 






CHARACTER BIT 4 






BIT5 






CHARACTER BIT 5 






BIT6 






CHARACTER BIT 6 






BIT7 














ODD BYTE 












BIT0 






BGND0 BACKGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT1 






BGND1 BACKGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT2 






BGND2 BACKGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT3 






FGBD0 FOREGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT4 






FGND1 FOREGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT5 






FGND2 FOREGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT6 






UNDLN CHARACTERS 


ARE UNDERLINED 




BIT7 






BLINK CHARACTERS 


BLINK AT 1/2 SEC. 1 


1ATE 


* ATTRIBUTES NOT AVAILABLE 


WHEN COCO = 


1 




GRAPHICS MODES 














16 COLOR MODES: 


(CRES1=1, 


CRES0 = 0) 






BYTE 


FROM 


DRAM 










BIT0 






PA0, 


SECOND PIXEL 






BIT1 






PA1, 


SECOND PIXEL 






BIT2 






PA2, 


SECOND PIXEL 






BIT3 






PA3, 


SECOND PIXEL 






BIT4 






PA0, 


FIRST PIXEL 






BIT5 






PA1, 


FIRST PIXEL 






BIT6 






PA2, 


FIRST PIXEL 






BIT7 






PA3, 


FIRST PIXEL 






4 COLOR MODES: 


(CRES1 


=0, CRES0 = 1) 






BYTE 


FROM 


DRAM 










BIT0 






PA0, 


FOURTH PIXEL 






BIT1 






PA1, 


FOURTH PIXEL 






BIT2 






PA0, 


THIRD PIXEL 






BIT3 






PA1, 


THIRD PIXEL 






BIT4 






PA0, 


SECOND PIXEL 






BIT5 






PA1, 


SECOND PIXEL 






BIT6 






PA0, 


FIRST PIXEL 






BIT7 






PA1, 


FIRST PIXEL 






2 COLOR MODES: 


(CRES1 


=0, CRES0 = 0) 






BYTE 


FROM 


DRAM 










BIT0 






PA0, 


EIGHTH PIXEL 






BIT1 






PA0, 


SEVENTH PIXEL 




BIT2 






PA0, 


SIXTH PIXEL 






BIT3 






PA0, 


FIFTH PIXEL 






BIT4 






PA0, 


FORTH PIXEL 
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0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0905 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 
0961 
0962 



FF9A 
FF9A 



FF9B 
FF9C 



FF9C 



FF9D 
FF9D 



FF9E 
FF9E 



FF9F 
FF9F 



BIT5 
BIT6 
BIT7 
PALETTE ADDRESSES 

ADDRESS 

FFB0 

FFB1 

FFB2 

FFB3 

FFB4 

FFB5 

FFB6 

FFB7 

FFB8 

FFB9 

FFBA 

FFBB 

FFBC 

FFBD 

FFBE 

FFBF 



PA0, THIRD PIXEL 
PA0, SECOND PIXEL 
PA0, FIRST PIXEL 



PA3 



PA2 



PA1 



PA0 



1 



1 



1 



1 



1 



1 



1 



1 



V. BORDER 


RMB 1 


BIT0 




BLU0 


BIT1 




GRN0 


BIT2 




RED0 


BIT3 




BLU1 


BIT4 




GRN1 


BIT5 




RED1 


BIT6 






BIT7 




RMB 1 


V. SCROLL 


RMB 1 


BIT0 




VSC0 


BIT1 




VSC1 


BIT2 




VSC2 


BIT3 




VSC3 


BIT4 






BIT5 






BIT6 






BIT7 






* IN 


COCO 


MODE, Tl 



BORDER REGISTER 

BLUE LSB 
GREEN LSB 
RED LSB 
BLUE MSB 
GREEN MSB 
RED MSB 



RESERVED 

VERTICAL SCROLL REGISTER 



V.OFSET1 RMB 



THE VSC'S MUST BE INITIALIZED TO $0F 

VERTICAL OFFSET 1 REGISTER 



BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



Yll 
Y12 
Y13 
Y14 
Y15 
Y16 
Y17 
Y18 



V.OFSET0 RMB 



VERTICAL OFFSET REGISTER 



BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



Y3 
Y4 
Y5 
Y6 
Y7 
Y8 
Y9 
Y10 



* IN COCO MODE, Y9-Y15 ARE NOT 
SAM BITS F0-F6. ALSO IN COCO 



H.OFSET0 RMB 



BIT0 
BIT1 



X0 
XI 



EFFECTIVE, AND ARE CONTROLLED BY 
MODE, Y16-Y18 SHOULD BE 1, ALL OTHERS 

HORIZONTAL OFFSET REGISTER 

HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 



FFA0 



FFB0 



FFC0 

FFC0 
FFC1 
FFC2 
FFC3 
FFC4 
FFC5 



BIT2 


X2 


BIT3 


X3 


BIT4 


X4 


BIT5 


X5 


BIT6 


X6 


BIT7 


XVEN 



HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL VIRTUAL ENABLE 
HVEN ENABLES A HORIZONTAL SCREEN WIDTH OF 128 BYTES REGARDLESS OF THE 
HRES BITS AND CRES BITS SELECTED. THIS WILL ALLOW A 'VIRTUAL' SCREEN 
SOMEWHAT LARGER THAN THE DISPLAYED SCREEN. THE USER CAN MOVE THIS 
'WINDOW' (THE DISPLAYED SCREEN) BY MEANS OF THE HORIZONTAL OFFSET 
BITS. IN CHARACTER MODE, THE SCREEN WIDTH IS 128 CHARACTERS REGARDLESS 
OF ATTRIBUTE (OR 64, IF DOUBLE-WIDE IS SELECTED). 



MMUREG 



RMB 16 



MEMORY MANAGEMENT UNIT REGISTERS (6 BITS) 



* RELATIONSHIP BETWEEN DATA IN TASK REGISTER AND GENERATED ADDRESS 

BIT D5 D4 D3 D2 Dl D0 

CORRESPONDING 

MEMORY ADDRESS A18 A17 A16 A15 A14 A13 

* DATA FROM THE MMU IS THEN USED AS THE UPPER 6 ADDRESS LINES (A13-A18) 
FOR MEMORY ACCESS 



ADDRESS 


RANGE 


TR 


A15 


A14 


A13 


MMU LOCATION 


X0000 - 


X1FFF 














FFA0 


X2000 - 


X3FFF 











1 


FFA1 


X4000 - 


X5FFF 








1 





FFA2 


X6000 - 


X7FFF 








1 


1 


FFA3 


X8000 - 


X9FFF 





1 








FFA4 


XA000 - 


XBFFF 





1 





1 


FFA5 


XC000 - 


XDFFF 





1 


1 





FFA6 


XE000 - 


XFFFF 





1 


1 


1 


FFA7 


X0000 - 


X1FFF 


1 











FFA8 


X2000 - 


X3FFF 


1 








1 


FFA9 


X4000 - 


X5FFF 


1 





1 





FFAA 


X6000 - 


X7FFF 


1 





1 


1 


FFAB 


X8000 - 


X9FFF 


1 


1 








FFAC 


XA000 - 


XBFFF 


1 


1 





1 


FFAD 


XC000 - 


XDFFF 


1 


1 


1 





FFAE 


XE000 - 


XFFFF 


1 


1 


1 


1 


FFAF 



PALETREG RMB 16 



COLOR PALETTE REGISTERS (6 BITS) 





DATA BIT 


D5 D4 D3 D2 Dl 




RGB OUTPUT 


Rl Gl Bl R0 G0 




COMP. OUTPUT 


11 10 P3 P2 PI 


FOR COCO COMPATIBILITY, THE 


FOLLOWING SHOULD BE LOADED ON IN 


(RGB VALUES) 


FOR PAL VERSION 


, IGNORE TABLE FOR COMPOSITE 


FFB0 


GREEN 


$12 


FFB1 


YELLOW 


$36 


FFB2 


BLUE 


$09 


FFB3 


RED 


$24 


FFB4 


BUFF 


$3F 


FFB5 


CYAN 


$10 


FFB6 


MAGENTA 


$2D 


FFB7 


ORANGE 


$26 


FFB8 


BLACK 


$00 


FFB9 


GREEN 


$12 


FFBA 


BLACK 


$00 


FFBB 


BUFF 


$3F 


FFBC 


BLACK 


$00 


FFBD 


GREEN 


$12 


FFBE 


BLACK 


$00 


FFBF 


ORANGE 


$26 



D0 



P0 



INITIALIZATION 



SAMREG 



EQU 



V0CLR 


RMB 


1 


V0SET 


RMB 


1 


V1CLR 


RMB 


1 


V1SET 


RMB 


1 


V2CLR 


RMB 


1 


V2SET 


RMB 


1 



SAM CONTROL REGISTERS 

CLEAR COCO GRAPHICS MODE V0 
SET COCO GRAPHICS MODE V0 
CLEAR COCO GRAPHICS MODE VI 
SET COCO GRAPHICS MODE VI 
CLEAR COCO GRAPHICS MODE V2 
SET COCO GRAPHICS MODE V2 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1037 


FFC6 


F0CLR 


RMB 


1 


1038 


FFC7 


F0SET 


RMB 


1 


1039 


FFC8 


F1CLR 


RMB 


1 


1040 


FFC9 


F1SET 


RMB 


1 


1041 


FFCA 


F2CLR 


RMB 


1 


1042 


FFCB 


F2SET 


RMB 


1 


1043 


FFCC 


F3CLR 


RMB 


1 


1044 


FFCD 


F3SET 


RMB 


1 


1045 


FFCE 


F4CLR 


RMB 


1 


1046 


FFCF 


F4SET 


RMB 


1 


1047 


FFD0 


F5CLR 


RMB 


1 


1048 


FFD1 


F5SET 


RMB 


1 


1049 


FFD2 


F6CLR 


RMB 


1 


1050 


FFD3 


F6SET 


RMB 


1 


1051 


FFD4 




RMB 


4 


1052 


FFD8 


R1CLR 


RMB 


1 


1053 


FFD9 


R1SET 


RMB 


1 


1054 


FFDA 




RMB 


4 


1055 


FFDE 


ROMCLR 


RMB 


1 


1055 


FFDF 


ROMSET 


RMB 


1 


1057 










1058 


FFE0 




RMB 


18 


1059 




* 


INTERRUPT VECTORS 


1050 


FFF2 


SWI3 


RMB 


2 


1061 


FFF4 


SWI2 


RMB 


2 


1062 


FFF6 


FIRQ 


RMB 


2 


1063 


FFF8 


IRQ 


RMB 


2 


1064 


FFFA 


SWI 


RMB 


2 


1065 


FFFC 


NMI 


RMB 


2 


1066 


FFFE 


RESETV 


RMB 


2 



CLEAR COCO GRAPHICS OFFSET F0 
SET COCO GRAPHICS OFFSET F0 
CLEAR COCO GRAPHICS OFFSET Fl 
SET COCO GRAPHICS OFFSET Fl 
CLEAR COCO GRAPHICS OFFSET F2 
SET COCO GRAPHICS OFFSET F2 
CLEAR COCO GRAPHICS OFFSET F3 
SET COCO GRAPHICS OFFSET F3 
CLEAR COCO GRAPHICS OFFSET F4 
SET COCO GRAPHICS OFFSET F4 
CLEAR COCO GRAPHICS OFFSET F5 
SET COCO GRAPHICS OFFSET F5 
CLEAR COCO GRAPHICS OFFSET F6 
SET COCO GRAPHICS OFFSET F6 
RESERVED 

CLEAR CPU RATE, (0.89 MHz) 
SET CPU RATE, (1.78 MHz) 
RESERVED 
ROM DISABLED 
ROM ENABLED 

RESERVED FOR FUTURE MPU ENHANCEMENTS 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0001 C000 



ORG 



SC000 



0002 










0003 


C000 


1A 


50 




0004 


C002 


10 


CE 


5E FF 


0005 


C006 


86 


12 




0006 










0007 


C008 


C6 


10 




0008 


C00A 


8E 


FF 


B0 


0009 


C00D 


A7 


80 




0010 


C00F 


5A 






0011 


C010 


26 


FB 




0012 










0013 


C012 


8E 


FF 


A0 


0014 


C015 


31 


8D 


02 2D 


0015 


C019 


C6 


10 




0016 


C01B 


A6 


A0 




0017 


C01D 


A7 


80 




0018 


C01F 


5A 






0019 


C020 


26 


F9 




0020 


C022 


86 


CE 




0021 


C024 


B7 


FF 


90 


0022 










0023 










0024 


C027 


30 


8D 


00 14 


0025 


C02B 


10 


8E 


40 00 


0026 


C02F 


EC 


81 




0027 


C031 


EE 


81 




0028 


C033 


ED 


Al 




0029 


C035 


EF 


Al 




0030 


C037 


8C 


C3 


6C 


0031 


C03A 


25 


F3 




0032 


C03C 


7E 


40 


00 


0033 










0034 










0035 


C03F 


32 


7F 




0036 


C041 


12 






0037 


C042 


12 






0038 


C043 


12 






0039 


C044 


12 






0040 


C045 


12 






0041 


C046 


86 


FF 




0042 


C048 


B7 


FF 


94 


0043 


C04B 


B7 


FF 


95 


0044 










0045 










0046 


C04E 


30 


8D 


01 DC 


0047 


C052 


10 


8E 


FF 98 


0048 


C056 


A6 


80 




0049 


C058 


A7 


A0 




0050 


C05A 


10 


8C 


FF A0 


0051 


C05E 


26 


F6 




0052 










0053 


C060 


8E 


FF 


20 


0054 


C063 


CC 


FF 


34 


0055 


C066 


6F 


01 




0056 


C068 


6F 


03 




0057 


C06A 


4A 






0058 


C06B 


A7 


84 




0059 


C06D 


86 


F8 




0060 


C06F 


A7 


02 




0061 


C071 


E7 


01 




0062 


C073 


E7 


03 




0063 


C075 


6F 


02 




0064 


C077 


86 


02 




0065 


C079 


A7 


84 




0066 


C07B 


86 


FF 




0067 










0068 


C07D 


8E 


FF 


00 


0069 


C080 


6F 


01 




0070 


C082 


6F 


03 




0071 


C084 


6F 


84 




0072 


C086 


A7 


02 




0073 


C088 


E7 


01 




0074 


C08A 


E7 


03 




0075 










0076 


C08C 


C6 


0C 




0077 


C08E 


CE 


FF 


C0 


0078 


C091 


A7 


CI 




0079 


C093 


5A 






0080 


C094 


26 


FB 




0081 


C096 


B7 


FF 


C9 


0082 


C099 


IF 


9B 




0083 


C09B 


6F 


02 




0084 


C09D 


A7 


5D 




0085 


C09F 


8E 


FF 


00 


0086 


C0A2 


C6 


DF 




0087 


C0A4 


E7 


02 




0088 


C0A6 


A6 


84 




0089 


C0A8 


43 






0090 


C0A9 


84 


40 




0091 


C0AB 


A7 


E4 




0092 










0093 


C0AD 


10 


8E 


00 02 


0094 


C0B1 


57 






0095 


C0B2 


E7 


02 




0096 


C0B4 


A6 


84 





LC000 ORCC #$50 DISABLE IRQ, F I RQ INTERRUPTS 

LDS #$5EFF INITIALIZE STACK POINTER 

LDA #$12 PALETTE COLOR: COMPOSITE-GREEN, RGB-INDIG 

* INITIALIZE ALL PALETTE REGISTERS TO GREEN (COMPOSITE) 

16 PALETTE REGISTERS 

POINT X TO THE PALETTE REGISTERS 

SAVE THE COLOR IN THE PALETTE REGISTER 

BUMP COUNTER 

LOOP UNTIL ALL PALETTE REGISTERS DONE 

POINT X TO THE MMU REGISTERS 
POINT Y TO THE MMU REGISTER IMAGES 
16 MMU REGISTERS 
GET A BYTE FROM THE IMAGE 
SAVE IT IN THE MMU REGISTER 
BUMP COUNTER 
LOOP UNTIL DONE 

ENABLE COCO COMPATIBLE MODE; ENABLE MMU 
AND TURN ON THE NORMAL SPARE CHIP SELECT 
); THIS IS DONE IN 



LDB 


#16 


LDX 


#PALETREG 


STA 


,x+ 


DECB 




BNE 


LC00D 


LDX 


SMMUREG 


LEAY 


MMUIMAGE.PC 


LDB 


#16 


LDA 


,Y+ 


STA 


,x+ 


DECB 




BNE 


LC01B 


LDA 


#COCO+MMUEN- 


STA 


INIT0 



MOVE THE INITIALIZATION CODE FROM ROM TO RAM( 
PREPARATION FOR MOVING BASIC FROM ROM TO RAM. 
LEAX BEGMOVE.PC 
#$4000 

,X++ 

,x++ 

,Y++ 
,Y++ 

#ENDMOVE 
LC02F 



LDY 

LDD 

LDU 

STD 

STU 

CMPX 

BCS 

JMP 



POINT TO START OF ROM CODE 
RAM LOAD ADDRESS 
GRAB TWO BYTES 
GRAB TWO MORE BYTES 
MOVE FIRST SET OF BYTES 
AND THEN THE SECOND 
ARE ALL BYTES MOVED? 
KEEP GOING UNTIL DONE 
JUMP INTO THE MOVED CODE 



* THE REST OF THE CODE IS MOVED INTO RAM TO BE EXECUTED 

BEGMOVE LEAS $-01, S MAKE A TEMPORARY STORAGE LOCATION ON THE STACK 

NOP 

NOP 

NOP 

NOP 

NOP SPACE FILLER NOPS - THEY SERVE NO PURPOSE 

LDA #$FF 

STA V. TIMER 

STA V.TIMER+1 SET THE TIMER TO $FFFF AND START IT COUNTING 



POINT X TO THE VIDEO CONTROL REGISTER IMAGE 

POINT Y TO THE VIDEO CONTROL REGISTERS 

GET A BYTE FROM THE IMAGE 

SAVE IT IN THE VIDEO REGISTER 

CHECK FOR THE END OF THE VIDEO MODE REGISTERS 

LOOP UNTIL DONE 



* SET UF 


1 THE 


VIDEO CONTROL REGISTERS 




LEAX 


VIDIMAGE.PC 




LDY 


#VIDEOREG 


LC056 


LDA 


,x+ 




STA 


,Y+ 




CMPY 


#MMUREG 




BNE 


LC056 


* INITIALIZE 


PIA1 




LDX 


#PIA1 




LDD 


#$FF34 




CLR 


$01, X 




CLR 


$03, X 




DECA 






STA 


,x 




LDA 


#$F8 




STA 


$02, X 




STB 


$01, X 




STB 


$03, X 




CLR 


$02, X 




LDA 


#$02 




STA 


,x 




LDA 


#$FF 


* INITIALIZE 


PIA0 




LDX 


#PIA0 




CLR 


$01, X 




CLR 


$03, X 




CLR 


,x 




STA 


$02, X 




STB 


$01, X 




STB 


$03, X 


* INITIALIZE 


THE SAM MIRROR REGISTERS 




LDB 


#12 




LDU 


#SAM 


LC091 


STA 
DECB 


,U++ 




BNE 


LC091 




STA 


SAM+9 




TFR 


B,DP 




CLR 


$02, X 




STA 


$-03, U 




LDX 


#PIA0 




LDB 


#$DF 




STB 


$02, X 




LDA 


,x 




COMA 






ANDA 


#$40 




STA 


,S 


* CHECK 


FOR THE CONTROL AND ALT KEYS 




LDY 


#2 


LC0B1 


ASRB 






STB 


$02, X 




LDA 


,x 



POINT X TO PIA 1 

CLEAR CONTROL REGISTER A 

CLEAR CONTROL REGISTER B; ENABLE BOTH DATA DIRECTION REGISTERS 

SET ACCA TO $FE 

BIT INPUT, ALL OTHERS OUTPUT ON PORT A 

BITS 0-2 INPUT, 3-7 OUTPUT ON PORT B 

SET PORT TO PERIPHERAL REGISTER, CA1 DISABLED, CA2 ENABLED AS INPUT 
SET PORT TO PERIPHERAL REGISTER, CB1 DISABLED, CB2 ENABLED AS INPUT 
SET THE GRAPHICS MODE TO NORMAL LO-RES COCO ALPHA 

SET THE DA OUTPUT TO ZERO AND THE RS232 OUTPUT TO MARKING 



ENABLE BOTH DATA DIRECTION REGISTERS 
ENABLE BOTH DATA DIRECTION REGISTERS 



CA1 DISABLED, 
CB1 DISABLED, 



BIT 



CA2 ENABLED AS INPUT 
CB2 ENABLED AS INPUT 



POINT X TO PIA 
CLEAR CONTROL REGISTER A 
CLEAR CONTROL REGISTER B 
SET PORT A TO ALL INPUTS 
SET PORT B TO ALL OUTPUTS 
SET PORT TO PERIPHERAL REGISTER 
SET PORT TO PERIPHERAL REGISTER 
IN THE CUSTOM CHIP 

RESET 12 SAM IMAGE REGISTERS 

POINT U TO THE SAM REGISTERS 

CLEAR THE BIT AND SKIP TO THE NEXT 

BUMP COUNTER 

LOOP UNTIL ALL BITS CLEARED 

SET THE VIDEO DISPLAY PAGE TO $400 

SET THE DIRECT PAGE TO PAGE ZERO 

STROBE ALL KEYBOARD COLUMNS; USELESS INSTRUCTION 

SAMREG+21 (FFD5); SELECT RAM PAGE 1; USELESS IN THE COCO 3 

POINT X TO PIA 0; WHY?? IT'S ALREADY POINTED THERE 

COLUMN TWO STROBE 

STROBE THE COLUMNS 

READ THE ROWS 

LOOK FOR ROW 6 ONLY (Fl KEY) 
SAVE IN TEMPORARY STORAGE 



CHECK FOR TWO KEYS 

SHIFT THE COLUMN STROBE -- WASTED, 

SAVE THE NEW COLUMN STROBE 

READ THE KEYBOARD ROWS 



SHOULD BE ASR 2,X 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0097 


C0B6 


43 






0098 


C0B7 


84 


40 




0099 


C0B9 


27 


07 




0100 


C0BB 


31 


3F 




0101 


C0BD 


26 


F2 




0102 


C0BF 


16 


01 


2E 


0103 


C0C2 


86 


CA 




0104 


C0C4 


B7 


FF 


90 


0105 










0106 










0107 










0108 










0109 










0110 










0111 










0112 










0113 










0114 










0115 


C0C7 


B6 


FE 


ED 


0116 


C0CA 


81 


55 




0117 


C0CC 


26 


28 




0118 


C0CE 


96 


71 




0119 


C0D0 


81 


55 




0120 


C0D2 


26 


0A 




0121 


C0D4 


9E 


72 




0122 


C0D6 


A6 


84 




0123 


C0D8 


81 


12 




0124 


C0DA 


10 


27 


00 AE 


0125 


C0DE 


7F 


FF 


A0 


0126 


C0E1 


96 


71 




0127 


C0E3 


81 


55 




0128 


C0E5 


26 


0A 




0129 


C0E7 


9E 


72 




0130 


C0E9 


A6 


84 




0131 


C0EB 


81 


12 




0132 


C0ED 


10 


27 


00 9B 


0133 


C0F1 


86 


38 




0134 


C0F3 


B7 


FF 


A0 


0135 


C0F6 


8E 


C0 


00 


0136 


C0F9 


10 


8E 


80 00 


0137 


C0FD 


17 


00 


AA 


0138 










0139 










0140 


C100 


31 


8D 


01 52 


0141 


C104 


A6 


A0 




0142 


C106 


34 


02 




0143 


C108 


AE 


Al 




0144 


C10A 


E6 


A0 




0145 


C10C 


A6 


A0 




0146 


C10E 


A7 


80 




0147 


cub 


5A 






0148 


cm 


26 


F9 




0149 


C113 


35 


02 




0150 


C115 


4A 






0151 


C116 


26 


EE 




0152 


C118 


7F 


FF 


DE 


0153 


cub 


86 


C8 




0154 


cud 


B7 


FF 


90 


0155 


C120 


FC 


C0 


00 


0156 










0157 


C123 


81 


44 




0158 


C125 


26 


10 




0159 


C127 


CI 


4B 




0160 


C129 


26 


0C 




0161 










0162 


C12B 


8E 


E0 


00 


0163 


C12E 


10 


8E 


C0 00 


0164 


C132 


8D 


76 




0165 


C134 


17 


01 


EB 


0166 


C137 


7F 


FF 


DE 


0167 


C13A 


86 


CA 




0168 


C13C 


B7 


FF 


90 


0169 










0170 










0171 


C13F 


8E 


FE 


00 


0172 


C142 


10 


8E 


E0 00 


0173 


C146 


8D 


62 




0174 


C148 


17 


00 


93 


0175 


C14B 


31 


8D 


02 0A 


0176 


C14F 


8E 


FE 


ED 


0177 


C152 


C6 


13 




0178 


C154 


17 


00 


7F 


0179 


C157 


7F 


FF 


DF 


0180 


C15A 


6D 


E4 




0181 


C15C 


27 


22 




0182 


C15E 


8E 


E0 


32 


0183 


C161 


C6 


03 




0184 


C163 


30 


01 




0185 


C165 


A6 


84 




0186 


C167 


8A 


20 




0187 


C169 


A7 


84 




0188 


C16B 


30 


09 




0189 


C16D 


5A 






0190 


C16E 


26 


F5 




0191 


C170 


C6 


02 




0192 


C172 


8E 


E0 


70 



COMA 




ANDA 


#$40 


BEQ 


LC0C2 


LEAY 


$-01, Y 


BNE 


LC0B1 


LBRA 


LC1F0 


LDA 


#COCO+MMUEN+MC3+MCl 


STA 


INIT0 



KEEP ONLY ROW 6 

BRANCH IF KEY NOT DOWN 

LET'S CHECK FOT EH ALT KEY NOW 

GO DISPLAY THE HI-RES PICTURE IF CONTROL AND ALT KEYS ARE DOWN 
TURN OFF THE NORMAL SCS; THE EXTERNAL DISK CONTROLLER 
MAY NOT BE ACCESSED NOW 

THE FOLLOWING CODE CHECKS TO DETERMINE IF A JUMP TO WARM START RESET CODE SHOULD BE DONE. 
THE JUMP TO A WARM START RESET WILL BE DONE IF 1) INT. FLAG CONTAINS A $55 AND, 
2) RSTFLG CONTAINS A $55 AND, 3) THE ADDRESS IN RSTVEC POINTS TO A $12 (NOP INSTRUCTION.) 
IF THE ABOVE CONDITIONS ARE MET, BASIC WILL BE WARM-STARTED. IF INT. FLAG DOES NOT CONTAIN 
A $55, BASIC WILL BE COLD-STARTED. IF INT. FLAG DOES CONTAIN A $55, BUT 2) AND 3) ABOVE 
ARE NOT MET, BLOCK 6.0 (128K SYSTEM) OR BLOCK 0.0 (512K SYSTEM) WILL BE LOADED INTO CPU 
BLOCK 0. THIS WILL GIVE THE CPU A NEW DIRECT PAGE AND CHECKS 2) AND 3) ABOVE WILL BE 
PERFORMED ON THIS NEW DIRECT PAGE TO SEE IF BASIC SHOULD BE WARM-STARTED. 

GET THE INTERRUPT JUMP TABLE VALIDITY FLAG. 

CHECK FOR VALID INTERRUPT JUMP TABLE FLAG 

INTERRUPT JUMP TABLE IS NOT VALID' COPY ROM TO RAM 

GET THE SYSTEM RESET FLAG 

CHECK FOR THE WARM START FLAG 

BRANCH IF NO WARM START 

GET THE SYSTEM RESET VECTOR 

GET THE FIRST BYTE POINTED TO BY THE RESET VECTOR 

IS IT A NOP? 

DON'T COPY ROM TO RAM, ETC. 

PUT BLOCK 6.0 (128K RAM) OR BLOCK 0.0 (512K RAM) INTO CPU BLOCK 

CHECK FOT THE WARM START FLAG 

BRANCH IF NO WARM START 

POINT X TO THE WARM START CODE 

GET THE FIRST BYTE OF THE WARM START CODE 

IS IT A NOP? 

DON'T COPY ROM TO RAM IF IT IS. 

GET BACK BLOCK 7.0 

PUT IT BACK INTO CPU BLOCK 

POINT TO THE END OF THE COLOR BASIC ROM 

POINT TO START OF EXTENDED BASIC 

MOVE COLOR AND EXTENDED BASIC ROM TO RAM 



LDA 


INT. FLAG 


CMPA 


#$55 


BNE 


LC0F6 


LDA 


RSTFLG 


CMPA 


#$55 


BNE 


NOWARM 


LDX 


RSTVEC 


LDA 


,x 


CMPA 


#$12 


LBEQ 


LC18C 


CLR 


MMUREG 


LDA 


RSTFLG 


CMPA 


#$55 


BNE 


LC0F1 


LDX 


RSTVEC 


LDA 


,x 


CMPA 


#$12 


LBEQ 


LC18C 


LDA 


#BLOCK7.l 


STA 


MMUREG 


LDX 


#DOSBAS 


LDY 


#EXBAS 


LBSR 


LC1AA 



PATCH COLOR AND EXTENDED BASIC 

LEAY PATCHTAB.PC 

LDA ,Y+ 
C106 PSHS A 

LDX ,Y++ 

LDB ,Y+ 
C10C LDA ,Y+ 

STA ,X+ 

DECB 

BNE LC10C 

PULS A 

DECA 

BNE 

CLR 

LDA 

STA 

LDD 
CHECK FOR A 

CMPA 

BNE 

CMPB 

BNE 



LC106 

SAM+30 

SCOCO+MMUEN+MC3 

INIT0 

DOSBAS 
'DK' AT $C000 (DISK BASIC) 

#'D' 

LC137 

#'K' 

LC137 

COPY THE DISK BASIC ROM INTO RAM 
LDX #SUPERVAR 
LDY #DOSBAS 
BSR LC1AA 
LBSR LC322 
C137 CLR SAM+30 

LDA #COCO+MMUEN+MC3+MCl 
STA INIT0 

COPY SUPER EXTENDED BASIC FROM ROM TO RAM 



POINT Y TO THE PATCH TABLE 

GET THE NUMBER OF PATCHES TO BE MADE 

SAVE THE PATCH COUNTER 

GET THE ADDRESS WHERE THE PATCH IS TO BE PLACED 

GET THE NUMBER OB BYTES IN THE PATCH 

GET A BYTE 

PATCH THE CODE IN RAM 

BUMP THE COUNTER 

LOOP UNTIL DONE 

RESTORE THE PATCH COUNTER 

LOOP UNTIL ALL PATCHES DONE 

ENABLE THE ROM MODE 

ENABLE 16K INTERNAL, 16K EXTERNAL ROM 

GET THE FIRST TWO BYTES OF AN EXTERNAL ROM, IF ANY 
THIS SHOULD BE CMPD 



LDX 
LDY 

BSR 
LBSR 

LEAY 
LDX 

LDB 

LBSR 

CLR 

TST 

BEQ 

LDX 

LDB 

LEAX 

LDA 

ORA 

STA 

LEAX 

DECB 

BNE 

LDB 

LDX 



#H.CRSLOC 

#SUPERVAR 

LC1AA 

LC1DE 

INTIMAGE.PC 

SINT.FLAG 

#19 

MOVE.XY 

SAM+31 

,S 

LC180 

SIM. TEXT 

#$03 

$01, X 

,X 

#$20 

,X 

$09, X 

LC165 

#$02 
#IM. GRAPH 



POINT TO THE END OF THE DISK BASIC ROM 
POINT TO THE START OF THE DISK BASIC ROM 
COPY ROM INTO RAM 
PATCH DISK BASIC 
ENABLE ROM MODE 

ENABLE 32K INTERNAL ROM 



POINT TO THE END OF ENHANCED BASIC ROM 

POINT TO THE START OF ENHANCED BASIC ROM 

COPY ROM TO RAM 

PATCH THE ENHANCEMENTS (MOVE THE AUTHORS' DECODED NAMES) 

POINT X TO THE INTERRUPT JUMP VECTOR IMAGES 

DESTINATION FOR INTERRUPT VECTORS 

6 INTERRUPT JUMP ADDRESSES * 3 BYTES7JUMP ADDRESS + VALIDITY FLAG 

COPY THE INTERRUPT JUMP VECTORS 

ENABLE THE RAM MODE 

WAS THE Fl KEY DEPRESSED? 

NO 

TEXT MODE VIDEO CONTROL REGISTER IMAGES IN SUPER EXTENDED BASIC 

THREE SETS OF IMAGES 

SKIP PAST THE $FF90 TEXT MODE IMAGE 

GET THE INIT0 IMAGE 

FORCE THE ALTERNATE COLOR SET 

RE-SAVE THE INIT0 IMAGE 

SKIP TO NEXT SET OF IMAGES 

BUMP COUNTER 

LOOP UNTIL DONE 

TWO SETS OF GRAPHICS MODE IMAGES 

GRAPHICS MODE VIDEO CONTROL REGISTER IMAGES IN SUPER EXTENDED BASIC 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0193 


C175 


A6 


84 




0194 


C177 


8A 


20 




0195 


C179 


A7 


84 




0196 


C17B 


30 


09 




0197 


C17D 


5A 






0198 


C17E 


26 


F5 




0199 










0200 


C180 


8E 


04 


00 


0201 


C183 


86 


60 




0202 


C185 


A7 


80 




0203 


C187 


8C 


06 


00 


0204 


C18A 


25 


F9 




0205 


C18C 


86 


CE 




0206 


C18E 


B7 


FF 


90 


0207 


C191 


6D 


E4 




0208 


C193 


27 


05 




0209 


C195 


86 


20 




0210 


C197 


B7 


FF 


98 


0211 


C19A 


8E 


FF 


B0 


0212 


C19D 


31 


8D 


00 95 


0213 


C1A1 


C6 


10 




0214 


C1A3 


8D 


31 




0215 


C1A5 


32 


61 




0216 


C1A7 


7E 


A0 


27 


0217 










0218 










0219 










0220 


C1AA 


BF 


5F 


02 


0221 


C1AD 


10 


FF 


5F 00 


0222 


C1B1 


7F 


FF 


DE 


0223 


C1B4 


EC 


A4 




0224 


C1B6 


AE 


22 




0225 


C1B8 


EE 


24 




0226 


C1BA 


10 


EE 


26 


0227 


C1BD 


7F 


FF 


DF 


0228 


C1C0 


ED 


A4 




0229 


C1C2 


AF 


22 




0230 


C1C4 


EF 


24 




0231 


C1C6 


10 


EF 


26 


0232 


C1C9 


31 


28 




0233 


C1CB 


10 


BC 


5F 02 


0234 


C1CF 


25 


E0 




0235 


C1D1 


10 


FE 


5F 00 


0236 


C1D5 


39 






0237 










0238 










0239 


C1D6 


A6 


A0 




0240 


C1D8 


A7 


80 




0241 


C1DA 


5A 






0242 


C1DB 


26 


F9 




0243 


C1DD 


39 






0244 










0245 










0246 


C1DE 


8E 


F7 


IB 


0247 


C1E1 


31 


8D 


01 28 


0248 


C1E5 


C6 


15 




0249 


C1E7 


A6 


A0 




0250 


C1E9 


43 






0251 


C1EA 


A7 


80 




0252 


C1EC 


5A 






0253 


C1ED 


26 


F8 




0254 


C1EF 


39 






0255 










0256 










0257 










0258 


C1F0 


4F 






0259 


C1F1 


B7 


FE 


ED 


0260 


C1F4 


97 


71 




0261 


C1F6 


B7 


FF 


DE 


0262 


C1F9 


C6 


09 




0263 


C1FB 


F7 


FF 


BA 


0264 


C1FE 


C6 


3F 




0265 


C200 


F7 


FF 


BB 


0266 


C203 


8E 


C4 


05 


0267 


C206 


10 


8E 


0E 00 


0268 


C20A 


EC 


81 




0269 


C20C 


EE 


81 




0270 


C20E 


ED 


Al 




0271 


C210 


EF 


Al 




0272 


C212 


8C 


DC 


05 


0273 


C215 


25 


F3 




0274 


C217 


86 


F9 




0275 


C219 


B7 


FF 


22 


0276 


C21C 


4F 






0277 


C21D 


8E 


FF 


C0 


0278 


C220 


A7 


84 




0279 


C222 


A7 


03 




0280 


C224 


A7 


05 




0281 


C226 


A7 


07 




0282 


C228 


A7 


09 




0283 


C22A 


A7 


0B 




0284 


C22C 


20 


FE 




0285 










0286 










0287 


C22E 


00 


00 


00 00 


0288 


C234 


00 


Ol 1 





LC175 


LDA 


,x 




ORA 


#$20 




STA 


,x 




LEAX 


$09, X 




DECB 






BNE 


LC175 


* CLEAR 


THE LO 


-RES VIDEO SCREEN 


LC180 


LDX 


#VIDRAM 




LDA 


#$60 


LC185 


STA 


,x+ 




CMPX 


#VIDRAM+512 




BCS 


LC185 


LC18C 


LDA 


#COCO+MMUEN+MC3+MC2+MC1 




STA 


INIT0 




TST 


,s 




BEQ 


LC19A 




LDA 


#$20 




STA 


VIDEOREG 


LC19A 


LDX 


#PALETREG 




LEAY 


PALIMAGE.PC 




LDB 


#16 




BSR 


MOVE.XY 




LEAS 


$01, S 




JMP 


RESVEC 


* COPY DATA POINTED TO BY (Y) FROM ROM 


* (X) IS 


i REACHED; PSHING AND PULING FR 


LC1AA 


STX 


L5F02 




STS 


L5F00 


LC1B1 


CLR 


SAM+30 




LDD 


,Y 




LDX 


$02, Y 




LDU 


$04, Y 




LDS 


$06, Y 




CLR 


SAM+31 




STD 


,Y 




STX 


$02, Y 




STU 


$04, Y 




STS 


$06, Y 




LEAY 


$08, Y 




CMPY 


L5F02 




BCS 


LC1B1 




LDS 


L5F00 




RTS 




* MOVE ACCB BYTES FROM (Y) TO (X) 


MOVE.XY 


LDA 


,Y+ 




STA 


,x+ 




DECB 






BNE 


MOVE.XY 




RTS 




* DECODE 


: AND COPY THE AUTHOR'S NAMES I 


LC1DE 


LDX 


#AUTHORMS 




LEAY 


LC30D.PC 




LDB 


#21 


LC1E7 


LDA 
COMA 


,Y+ 




STA 


,x+ 




DECB 






BNE 


LC1E7 




RTS 





GET THE INIT0 IMAGE 

FORCE THE ALTERNATE COLOR SET 

RE-SAVE THE INIT0 IMAGE 

SKIP TO NEXT SET OF IMAGES 

BUMP COUNTER 

LOOP UNTIL DONE 

POINT X TO THE START OF THE VIDEO DISPLAY 
GREEN SPACE 

PUT A GREEN SPACE ON THE LO-RES SCREEN 
AT THE END OF THE DISPLAY? 

NO 

ENABLE THE NORMAL SPARE CHIP SELECT (EXTERNAL $FF40) 

WAS THE Fl KEY DEPRESSED? 

NO 

ALTERNATE COLOR SET FLAG 

FORCE THE ALTERNATE COLOR SET 

POINT X TO THE PALETTE REGISTERS 

POINT Y TO THE PALETTE REGISTER IMAGES 

16 PALETTE REGISTERS 

FILL THE PALETTE REGISTERS FROM THEIR IMAGE 

REMOVE THE TEMPORARY STORAGE BYTE 

JUMP TO THE COCO 2 RESET ENTRY POINT 



WOULD BE MUCH MORE EFFICIENT 
TEMPORARILY SAVE THE END OF COPY ADDRESS 
AND THE STACK POINTER 
ENABLE THE ROM 



DISABLE THE ROM 

NOW SAVE THE DATA FROM THE CPU REGISTERS INTO ROM 



MOVE THE COPY POINTER UP 8 BYTES 
CHECK FOR END OF THE COPY RANGE 



RESTORE THE STACK 



THIS IS THE CODE WHICH DISPLAYS THE HIGH 
AUTHORS OF SUPER EXTENDED BASIC 



LC1F0 


CLRA 






STA 


INT. FLAG 




STA 


RSTFLG 




STA 


SAM+30 




LDB 


#$09 




STB 


PALETREG+10 




LDB 


#63 




STB 


PALETREG+11 




LDX 


SAUTHPIC 




LDY 


#$0E00 


LC20A 


LDD 


,X++ 




LDU 


,x++ 




STD 


,Y++ 




STU 


,Y++ 




CMPX 


#LDC05 




BCS 


LC20A 




LDA 


#$F9 




STA 


PIA1+2 




CLRA 






LDX 


#SAM 




STA 


,x 




STA 


$03, X 




STA 


$05, X 




STA 


$07, X 




STA 


$09, X 


LC22A 


STA 


$0B,X 


WAITLOOF 


BRA 


WAITLOOP 



POINT X TO THE DESTINATION FOR THE AUTHORS' 

POINT Y TO THE CODED NAMES OF THE AUTHORS 

21 BYTES IN THE AUTHORS' NAMES 

GET A CODED BYTE OF THE AUTHORS' NAMES 

DECODE THE BYTE 

SAVE THE UNCODED BYTE 

BUMP COUNTER DOWN ONE. 

LOOP UNTIL ALL BYTES DECODED 



RESOLUTION PICTURE OF THE 



SET THE INTERRUPT FLAG TO NOT VALID (NOT INITIALIZED) 
FORCE THE ROMS TO BE COPIED INTO RAM 
ENABLE THE ROMS 



WHITE (COMPOSITE AND RGB) 

POINT X TO THE AUTHORS' PICTURE DATA 
DESTINATION OF THE AUTHORS' PICTURE DATA 

GET FOUR BYTES OF PICTURE DATA 

PUT THE DATA ON THE HI-RES SCREEN 

AT THE END OF THE PICTURE DATA? 

NO 

256x192 GREEN7BUFF COCO 2 HI-RES GRAPHICS MODE 

PROGRAM THE GRAPHICS MODE INTO THE PIA AND THE GIME CHIP 

POINT X TO THE SAM REGISTERS 



PROGRAM THE SAM REGISTERS FOR HI-RES MODE 



SET THE VIDEO DISPLAY PAGE TO $E00 
ENDLESS WAIT LOOP 



* IMAGES OF THE VIDEO CONTROL REGISTERS (FF98-FF9F) 
0F E0 VIDIMAGE FCB $00,$00,$00,$00,$0F,$E0 
FCB $00, $00 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0289 










0290 










0291 


C236 


12 


24 


0B 


0292 


C23C 


09 


26 


00 


0293 


C242 


00 


12 


00 


0294 










0295 










0296 










0297 










0298 


C246 


38 


39 


34 


0299 


C249 


3B 


3C 


3D 


0300 


C24C 


3E 


3F 




0301 










0302 










0303 


C24E 


38 


30 


31 


0304 


C251 


32 


33 


3D 


0305 


C254 


35 


3F 




0306 










0307 










0308 










0309 










0310 










0311 










0312 


C256 


IB 






0313 










0314 










0315 


C257 


80 


C0 




0316 


C259 


01 






0317 


C25A 


12 






0318 










0319 










0320 


C25B 


B8 


D4 




0321 


C25D 


03 






0322 


C25E 


7E 


El 


38 


0323 










0324 










0325 


C261 


B7 


F3 




0326 


C263 


03 






0327 


C264 


7E 


El 


72 


0328 










0329 










0330 


C267 


81 


50 




0331 


C269 


04 






0332 


C26A 


7E 


El 


92 


0333 


C26D 


12 






0334 










0335 










0336 


C26E 


81 


6C 




0337 


C270 


04 






0338 


C271 


7E 


El 


A6 


0339 


C274 


12 






0340 










0341 










0342 










0343 


C275 


88 


34 




0344 


C277 


12 






0345 


C278 


7E 


E3 


F8 


0346 


C27B 


0F 


51 




0347 


C27D 


0F 


52 




0348 


C27F 


0F 


53 




0349 


C281 


20 


B0 




0350 


C283 


0F 


50 




0351 


C285 


20 


CF 




0352 


C287 


7E 


E4 


0C 


0353 










0354 










0355 


C28A 


87 


EB 




0356 


C28C 


07 






0357 


C28D 


20 


4A 




0358 


C28F 


12 






0359 


C290 


39 






0360 


C291 


8E 


00 


51 


0361 










0362 










0363 


C294 


88 


0C 




0364 


C296 


02 






0365 


C297 


20 


35 




0366 










0367 










0368 


C299 


88 


26 




0369 


C29B 


02 






0370 


C29C 


25 


17 




0371 










0372 










0373 


C29E 


87 


E7 




0374 


C2A0 


02 






0375 


C2A1 


26 


05 




0376 










0377 










0378 


C2A3 


88 


6A 




0379 


C2A5 


02 






0380 


C2A6 


26 


82 




0381 










0382 










0383 


C2A8 


80 


B2 




0384 


C2AA 


03 







* IMAGES OF THE PALETTE REGISTERS (FFB0-FFBF) 
07 3F IF PALIMAGE FCB 18,36,11,7,63,31 

12 00 3F FCB 9,38,0,18,0,63 

26 FCB 0,18,0,38 

* IMAGES OF THE MMU REGISTERS (FFA0-FFAF) 

* TASK REGISTER 

MMUIMAGE FCB BLOCK7 .0.BLOCK7 . 1 ,BLOCK6 .4 
BL0CK7.3,BL0CK7.4,BL0CK7.5 
BLOCK7.6.BLOCK7.7 

* TASK REGISTER 1 

LC24E FCB BLOCK 7 .0.BLOCK6 .0.BLOCK6 . 1 
BLOCK6.2,BLOCK6.3,BLOCK7.5 
BL0CK6.5.BL0CK7.7 

* TABLE OF PATCHES TO BE MADE TO COLOR AND EXTENDED BASIC. THE FIRST BYTE 

* IS THE TOTAL NUMBER OF PATCHES TO BE MADE FOLLOWED BY THE CODE FOR ALL OF 

* THE PATCHES. THE INDIVIDUAL PATCHES HAVE A THREE BYTE HEADER CONSISTING OF THE 

* ADDRESS WHERE THE PATCH IS TO GO AND THE NUMBER OF BYTES IN THE PATCH. 



PATCHTAB FCB 



27 



NUMBER OF PATCHES 



* PATCH 1 - ENABLE EXTENDED BASIC WARM START CODE 

LC257 FDB PATCH1 $80C0 

LC259 FCB $01 

LC25A NOP 



* PATCH 2 - CRUNCH A TOKEN 
LC25B FDB PATCH2 
LC25D FCB $03 

LC25E JMP ALINK2 

* PATCH 3 - UNCRUNCH A TOKEN 
LC261 FDB PATCH3 

LC263 FCB $03 

LC264 JMP ALINK3 



$B8D4 
$E138 

$B7F3 
$E172 



* PATCH 4 - EXTENDED BASIC 
LC267 FDB PATCH4 
LC269 FCB $04 

LC26A JMP ALINK4 
NOP 

* PATCH 5 - EXTENDED BASIC 
LC26E FDB PATCH5 
LC270 FCB $04 

LC271 JMP ALINK5 
NOP 



S COMMAND INTERPRETATION LOOP 
$8150 



S SECONDARY COMMAND HANDLER 
$816C 



** PATCHES 6 


- 11 MODIFY THE WAY A ' SH ' V, 


* PATCH 


6 




LC275 


FDB 


PATCH6 


LC277 


FCB 


$12 


LC278 


JMP 


ALINK6A 




CLR 


FPA0+1 




CLR 


FPA0+2 




CLR 


FPA0+3 




BRA 


((PATCH7+4)-(PATCH6+9>) 




CLR 


FPA0 




BRA 


(PATCH6A-(PATCH6+13)) 




JMP 


ALINK6B 


* PATCH 


7 




LC28A 


FDB 


PATCH7 


LC28C 


FCB 


$07 


LC28D 


BRA 
NOP 
RTS 


((PATCH6+3)-PATCH7) 




LDX 


#FPA0+1 


* PATCH 


8 




LC294 


FDB 


PATCH8 


LC296 


FCB 


$02 


LC297 


BRA 


((PATCH6+15J-PATCH8) 


* PATCH 


9 




LC299 


FDB 


PATCH9 


LC29B 


FCB 


$02 


LC29C 


BCS 


((PATCH6+1D-PATCH9) 


* PATCH 


10 




LC29E 


FDB 


PATCH10 


LC2A0 


FCB 


$02 


LC2A1 


BNE 


((PATCH7+3J-PATCH10) 


* PATCH 


11 - 


NEEDED BECAUSE PATCH 5 REMOV 


LC2A3 


FDB 


PATCH 11 


LC2A5 


FCB 


$02 


LC2A6 


BNE 


((PATCH7+3)-PATCHll) 


* PATCH 


12 - 


EX BASIC'S COPYRIGHT MESSAGE 


LC2A8 


FDB 


PATCH12 


LC2AA 


FCB 


$03 



VARIABLE IS PROCESSED 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0385 


C2AB 


7E 


E2 


88 


0386 










0387 










0388 


C2AE 


81 


3A 




0389 


C2B0 


01 






0390 


C2B1 


00 






0391 










0392 










0393 


C2B2 


97 


03 




0394 


C2B4 


03 






0395 


C2B5 


7E 


E3 


89 


0396 










0397 










0398 


C2B8 


AD 


F0 




0399 


C2BA 


04 






0400 


C2BB 


7E 


E4 


29 


0401 


C2BE 


12 






0402 










0403 










0404 


C2BF 


A3 


C2 




0405 


C2C1 


04 






0406 


C2C2 


7E 


E4 


13 


0407 


C2C5 


12 






0408 










0409 










0410 


C2C6 


B0 


3D 




0411 


C2C8 


02 






0412 


C2C9 


E5 


32 




0413 










0414 










0415 


C2CB 


AF 


42 




0416 


C2CD 


03 






0417 


C2CE 


7E 


E3 


B4 


0418 










0419 










0420 


C2D1 


AD 


3F 




0421 


C2D3 


04 






0422 


C2D4 


7E 


E4 


D0 


0423 


C2D7 


12 






0424 










0425 










0426 


C2D8 


AC 


46 




0427 


C2DA 


03 






0428 


C2DB 


7E 


E4 


70 


0429 










0430 










0431 


C2DE 


AC 


73 




0432 


C2E0 


03 






0433 


C2E1 


7E 


E5 


02 


0434 










0435 










0436 


C2E4 


A3 


0A 




0437 


C2E6 


03 






0438 


C2E7 


7E 


8C 


37 


0439 










0440 










0441 


C2EA 


A9 


10 




0442 


C2EC 


03 






0443 


C2ED 


7E 


8C 


46 


0444 










0445 










0446 


C2F0 


Al 


Bl 




0447 


C2F2 


08 






0448 


C2F3 


7E 


A0 


CE 


0449 


C2F6 


12 






0450 


C2F7 


12 






0451 


C2F8 


12 






0452 


C2F9 


12 






0453 


C2FA 


12 






0454 










0455 










0456 


C2FB 


B9 


02 




0457 


C2FD 


03 






0458 


C2FE 


7E 


F8 


C3 


0459 










0460 










0461 


C301 


B9 


5C 




0462 


C303 


03 






0463 


C304 


7E 


F8 


A3 


0464 










0465 










0466 


C307 


A3 


8D 




0467 


C309 


03 






0468 


C30A 


7E 


F7 


57 


0469 










0470 










0471 


C30D 


AB 


Dl 


B7 9E 


0472 


C313 


96 


8C 


DF D9 


0473 


C319 


Dl 


BA 


9E 8D 


0474 


C31F 


8C 


F2 


FF 


0475 










0476 


C322 


B6 


C0 


04 


0477 


C325 


81 


D6 




0478 


C327 


26 


0B 




0479 


C329 


8E 


C0 


C6 


0480 


C32C 


31 


8D 


00 25 



LC2AB 



JMP 



ALINK12 



$E288 



* PATCH 13 - REMOVE ONE CR FROM ONE OF EX BAS COPYRIGHT MESSAGE 
LC2AE FDB PATCH13 $813A 

LC2B0 FCB $01 

LC2B1 FCB $00 

* PATCH 14 - ADD ONTO END OF EX BAS GRAPHICS INITIALIZATION ROUTINE 
LC2B2 FDB PATCH14 $9703 

LC2B4 FCB $03 

LC2B5 JMP ALINK14 $E389 



* PATCH 15 - BREAK CHECK 

LC2B8 FDB PATCH15 

LC2BA FCB $04 

LC2BB JMP ALINK15 
NOP 



$ADF0 
$E429 



* PATCH 16 - CHECK FOR BREAK KEY ON BASIC'S LINE INPUT 
LC2BF FDB PATCH16 $A3C2 
LC2C1 FCB $04 

LC2C2 JMP ALINK16 $E413 
NOP 

* PATCH 17 - PATCH INPUT TO RESPOND TO ON BRK 

LC2C6 FDB PATCH17+1 $B03C+1 

LC2C8 FCB $02 



LC2C9 



FDB 



ALINK17 



* PATCH 18 - 'ON' COMMAND 
LC2CB FDB PATCH18 
LC2CD FCB $03 

LC2CE JMP ALINK18 

* PATCH 19 - END OF 'NEW COMMAND 
LC2D1 FDB PATCH19 

LC2D3 FCB $04 
LC2D4 JMP ALINK19 
NOP 

* PATCH 20 - ERROR SERVICING ROUTINE 

LC2D8 FDB PATCH20 
LC2DA FCB $03 
LC2DB JMP ALINK20 



$AF42 
$E3B4 

$AD3F 
$E4D0 



$E470 



* PATCH 21 - BASIC'S MAIN LOOP IN THE DIRECT MODE 

LC2DE FDB PATCH21 $AC73 

LC2E0 FCB $03 

LC2E1 JMP ALINK21 $E502 



* PATCH 22 

LC2E4 FDB PATCH22 

LC2E6 FCB $03 

LC2E7 JMP PATCH22A 

* PATCH 23 - 'CLS' ROUTINE 
LC2EA FDB PATCH23 
LC2EC FCB $03 

LC2ED JMP PATCH23A 



* PATCH 


24 - 


CURSOR BLINK 


LC2F0 


FDB 


PATCH24 


LC2F2 


FCB 


$08 


LC2F3 


JMP 
NOP 

NOP 
NOP 
NOP 
NOP 


LA0CE 



$A30A 
$8C37 

$A910 
$8C46 

$A1B1 
$A0CE 



* PATCH 25 - PRINT 6 COMMAND 
LC2FB FDB PATCH25 
LC2FD FCB $03 

LC2FE JMP ALINK25 

* PATCH 26 

LC301 FDB PATCH26 
LC303 FCB $03 
LC304 JMP ALINK26 

* PATCH 27 - GET A BASIC INPUT LINE 
LC307 FDB PATCH27 

LC309 FCB $03 
LC30A JMP ALINK27 



$B902 
$F8C3 

$B95C 
$F8A3 

$A38D 
$F757 



THESE DATA ARE THE NAMES OF THE AUTHORS IN COMPLEMENTED ASCII (T.Harris S T. Earl es ,CR,0) 
C30D FCB $AB,$D1,$B7,$9E,$8D,$8D 
FCB $96,$8C,$DF,$D9,$DF,$AB 
FCB $D1,$BA,$9E,$8D,$93,$9A 
FCB $8C,$F2,$FF 



LOOK FOR THE MS BYTE OF THE ADDRESS OF DSKCON 
IF IT IS D6, THEN WE HAVE DISK BASIC 1.0 
BRANCH IF DISK BASIC 1.1 

POINT X TO DISK BASIC 1.0 PATCH ADDRESS ($C0C6) 
POINT Y TO THE PATCH DATA 



LC322 


LDA 


DCNVEC 




CMPA 


#$D6 




BNE 


LC334 




LDX 


#PATCH28 




LEAY 


LC355.PC 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0481 


C330 


E6 


A0 




0482 


C332 


20 


15 




0483 


C334 


8E 


C8 


B4 


0484 


C337 


86 


12 




0485 


C339 


C6 


0B 




0486 


C33B 


A7 


80 




0487 


C33D 


5A 






0488 


C33E 


26 


FB 




0489 


C340 


8E 


C0 


D9 


0490 


C343 


31 


8D 


00 0A 


0491 


C347 


E6 


A0 




0492 


C349 


A6 


A0 




0493 


C34B 


A7 


80 




0494 


C34D 


5A 






0495 


C34E 


26 


F9 




0496 


C350 


39 






0497 










0498 


C351 


03 






0499 


C352 


7E 


E2 


9D 


0500 


C355 


03 






0501 


C356 


7E 


E2 


97 


0502 










0503 










0504 










0505 


C359 


55 






0506 


C35A 


16 


02 


0F 


0507 


C35D 


16 


02 


0F 


0508 


C360 


16 


02 


18 


0509 


C363 


16 


02 


12 


0510 


C366 


16 


02 


09 


0511 


C369 


16 


02 


09 


0512 










0513 










0514 


C36C 








0515 










0516 


C405 








0517 










0518 


DC05 








0519 










0520 










0521 










0522 










0523 










0524 










0525 










0526 










0527 










0528 


E000 


00 


E6 




0529 


E002 


E0 


19 




0530 


E004 


E0 


4D 




0531 


E006 


E0 


97 




0532 


E008 


E0 


B5 




0533 


E00A 


E0 


Al 




0534 


E00C 


E0 


FF 




0535 


E00E 


El 


19 




0536 


E010 


7E 


A0 


5E 


0537 


E013 


00 


00 




0538 


E015 


00 


00 




0539 


E017 


00 


00 




0540 










0541 










0542 


E019 


34 


32 




0543 


E01B 


10 


21 


IF El 


0544 


E01F 


8E 


E0 


32 


0545 


E022 


96 


E7 




0546 


E024 


27 


5C 




0547 


E026 


8E 


E0 


3B 


0548 


E029 


81 


01 




0549 


E02B 


27 


55 




0550 


E02D 


8E 


E0 


44 


0551 


E030 


20 


50 




0552 










0553 










0554 










0555 


E032 


CC 






0556 


E033 


00 


00 


00 00 0F 


0557 


E039 


00 


00 




0558 










0559 


E03B 


4C 






0560 


E03C 


03 


05 


12 00 00 


0561 


E042 


00 


00 




0562 










0563 


E044 


4C 






0564 


E045 


03 


15 


12 00 00 


0565 


E04B 


00 


00 




0566 










0567 


E04D 


34 


32 




0568 


E04F 


10 


21 


IF AD 


0569 


E053 


8E 


E0 


70 


0570 


E056 


10 


8E 


E0 6C 


0571 


E05A 


96 


E6 




0572 


E05C 


81 


02 




0573 


E05E 


23 


03 




0574 


E060 


8E 


E0 


79 


0575 


E063 


80 


01 




0576 


E065 


A6 


A6 





LDB 

BRA 

LDX 

LDA 

LDB 

STA 

DECB 

BNE 

LDX 

LEAY 

LDB 

LDA 

STA 

DECB 

BNE 

RTS 
* DISK BASIC ROM PATCHES (COPYRIGHT MESSAGE) 
LC351 FCB $03 
LC352 JMP ALINK29 
LC355 FCB $03 
LC356 JMP ALINK28 



LC334 



LC33B 



LC349 



LC349 

#PATCH30 

#$12 

#11 

,X+ 

LC33B 

#PATCH29 

LC351.PC 



,X+ 



LC349 



GET THE NUMBER OF BYTES TO PATCH 

POINT X TO DISK BASIC 1.1 KEYBOARD PATCH ($C8B4) 

OP CODE OF A NOP INSTRUCTION 

PATCH 11 BYTES 

STORE A NOP 

DECREMENT COUNTER 

LOOP UNTIL DONE 

POINT X TO DISK BASIC 1.1 PATCH ADDRESS ($C0D9) 

POINT Y TO THE PATCH DATA 

GET THE NUMBER OF BYTES TO PATCH 

GET A PATCH BYTE 

STORE THE PATCH BYTE 

DECREMENT THE PATCH COUNTER 

LOOP UNTIL DONE 



$E29D 
$E297 



INTERRUPT VECTOR IMAGES 

THESE LBRAs WILL LINK TO BASIC 



INTIMAGE 


FCB 


$55 


LC35A 


LBRA 


(INTIMAGE+1) 




LBRA 


(INTIMAGE+1) 




LBRA 


(INTIMAGE+1) 




LBRA 


(INTIMAGE+1) 




LBRA 


(INTIMAGE+1) 




LBRA 


(INTIMAGE+1) 



S RAM INTERRUPT VECTORS AT $100 

VALIDITY FLAG (INTERRUPT VECTORS VALID/INVALID) 
(INT.JUMPJ+SW3VEC 
(INT.JUMP)+SW2VEC 
(INT.JUMP)+FROVEC 
(INT.JUMP)+IROVEC 
(INT.JUMPJ+SWIVEC 



* END OF THE DATA COPIED INTO RAM 
ENDMOVE RMB 153 



AUTHPIC RMB 



COCO 2 COMPATIBLE DIGITIZED PICTURE OF THE AUTHORS 



THE NEW SUPER EXTENDED BASIC CODE STARTS HERE 



THE CODE FROM THIS POINT TO $FDFF IS THE ENHANCEMENTS ADDED TO THE 'OLD' 
TO SUPPORT THE NEW FEATURES AVAILABLE IN THE COCO 3. 



THESE ARE THE ONLY 'SANCTIONED BY TANDY' LEGAL ENTRY POINTS INTO THE SUPER 
EXTENDED (ENHANCED) PORTION OF THE BASIC ROM 



SUPERVAR FDB 


HRMODE 


PRGTEXT 


FDB 


SETTEXT 


PRGGRAPH 


FDB 


SETGRAPH 


PRGMMU 


FDB 


SETMMU 


GETTEXT 


FDB 


SELTEXT 


GETBLOK0 


FDB 


SELBLOK0 


GETTASK0 


FDB 


SELTASK0 


GETTASK1 


FDB 


SELTASK1 


LE010 


JMP 


EXECCART 


SPARE0 


FDB 


$0000 


SPARE1 


FDB 


$0000 


SPARE2 


FDB 


$0000 


* SET UP 


THE 


VIDEO cont; 


SETTEXT 


PSHS 


Y,X,A 




LBRN 


RAMLINK 




LDX 


SIM. TEXT 




LDA 


HRWIDTH 




BEQ 


SETVIDEO 




LDX 


#LE03B 




CMPA 


#$01 




BEQ 


SETVIDEO 




LDX 


#LE044 




BRA 


SETVIDEO 



ADDRESS OF DIRECT PAGE VARIABLES UNIQUE TO ENHANCED BASIC 

SET THE VIDEO CONTROL REGISTERS TO DISPLAY HI-RES TEXT 

SET THE VIDEO CONTROL REGISTERS TO DISPLAY HI-RES GRAPHICS 

PROGRAM THE MMU REGISTERS FROM THEIR IMAGES 

PLACE THE HI-RES TEXT SCREEN INTO LOGICAL BLOCK 1 

PLACE THE BLOCK NUMBER IN ACCB INTO LOGICAL BLOCK 

RE-SELECT TASK REGISTER 

SELECT TASK REGISTER 1 

EXECUTE A ROM CARTRIDGE ($A05E) 

UNDEFINED 

UNDEFINED 

UNDEFINED 



RAM HOOK 

POINT TO THE 32 COLUMN VIDEO MODE REGISTER TABLE 

CHECK THE HI-RES TEXT MODE 

BRANCH IF 32 COLUMN MODE 

POINT TO THE 40 COLUMN VIDEO MODE REGISTER TABLE 

VIDEO MODE WIDTH SET TO 40 COLUMN? 

YES 

POINT TO THE 80 COLUMN VIDEO MODE REGISTER TABLE 



* VIDEO MODE REGISTER IMAGES FOR THE HI-RES TEXT MODES 

* INITIAL VIDEO CONTROL REGISTER DATA FOR 32 COLUMN COCO COMPATIBLE MODE 
IM.TEXT FCB COCO+MMUEN+MC3+MC2 FF90 

E0 LE033 FCB $00,$00,$00,$00,$0F,$E0 FF98 

FCB $00, $00 

* INITIAL VIDEO CONTROL REGISTER DATA FOR 40 COLUMN HI-RES MODE 
LE03B FCB MMUEN+MC3+MC2 FF90 

D8 LE03C FCB $03 ,$05 ,$12 ,$00, $00, $D8 FF98 

FCB $00, $00 

* INITIAL VIDEO CONTROL REGISTER DATA FOR 80 COLUMN HI-RES MODE 
LE044 FCB MMUEN+MC3+MC2 FF90 

D8 LE045 FCB $03 ,$15 ,$12 ,$00, $00, $D8 FF98 

FCB $00, $00 



SETGRAPH PSHS 


Y,X,A 


LBRN 


RAMLINK 


LDX 


#IM. GRAPH 


LDY 


#RESTABLE 


LDA 


HRMODE 


CMPA 


#$02 


BLS 


LE063 


LDX 


#LE079 


LE063 SUBA 


#$01 


LDA 


A,Y 



RAM HOOK 

POINT TO THE VIDEO MODE RAM IMAGE FOR HSCREEN MODES 1,2 

POINT TO THE VIDEO RESOLUTION TABLE 

GET THE HI-RES GRAPHICS MODE 

1 OR 2 ARE 40 COLUMN MODES 

BRANCH IF 40 COLUMN TEXT MODE 

POINT TO THE VIDEO RAM IMAGE FOR 80 COLUMN MODE 

ADJUST MODE NUMBERS TO START AT ZERO 

GRAB THE PROPER VIDEO RESOLUTION MODE 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0577 


E067 


A7 


02 






0578 


E069 


7E 


E0 


82 




0579 












0580 












0581 


E06C 


15 








0582 


E06D 


IE 








0583 


E06E 


14 








0584 


E06F 


ID 








0585 












0586 












0587 












0588 


E070 


4C 








0589 


E071 


80 


00 


00 


00 


0590 


E077 


00 


00 






0591 












0592 


E079 


4C 








0593 


E07A 


80 


00 


00 


00 


0594 


E080 


00 


00 






0595 












0596 












0597 












0598 


E082 


A6 


80 






0599 


E084 


B7 


FF 


90 




0600 


E087 


10 


8E 


FF 


98 


0601 


E08B 


A6 


80 






0602 


E08D 


A7 


A0 






0603 


E08F 


10 


8C 


FF 


A0 


0604 


E093 


25 


F6 






0605 


E095 


35 


B2 






0606 












0607 












0608 


E097 


34 


36 






0609 


E099 


30 


8D 


00 


44 


0610 


E09D 


8D 


52 






0611 


E09F 


35 


B6 






0612 












0613 












0614 












0615 












0616 


E0A1 


34 


36 






0617 


E0A3 


30 


8D 


00 


3A 


0618 


E0A7 


34 


10 






0619 


E0A9 


E7 


84 






0620 


E0AB 


8D 


44 






0621 


E0AD 


C6 


38 






0622 


E0AF 


35 


10 






0623 


E0B1 


E7 


84 






0624 


E0B3 


35 


B6 






0625 












0626 












0627 












0628 


E0B5 


34 


36 






0629 


E0B7 


30 


8D 


00 


26 


0630 


E0BB 


34 


10 






0631 


E0BD 


C6 


36 






0632 


E0BF 


E7 


01 






0633 


E0C1 


8D 


2E 






0634 


E0C3 


35 


10 






0635 


E0C5 


C6 


39 






0636 


E0C7 


E7 


01 






0637 


E0C9 


35 


B6 






0638 












0639 


E0CB 


34 


36 






0640 


E0CD 


30 


8D 


00 


10 


0641 


E0D1 


34 


10 






0642 


E0D3 


C6 


34 






0643 


E0D5 


E7 


0E 






0644 


E0D7 


8D 


18 






0645 


E0D9 


35 


10 






0646 


E0DB 


C6 


35 






0647 


E0DD 


E7 


0E 






0648 


E0DF 


35 


B6 






0649 












0650 












0651 












0652 


E0E1 


38 


39 


3A 


3B 


0653 


E0E7 


3E 


3F 






0654 












0655 












0656 


E0E9 


38 


30 


31 


32 


0657 


E0EF 


35 


3F 






0658 












0659 












0660 












0661 












0662 


E0F1 


10 


8E 


FF 


A0 


0663 


E0F5 


C6 


10 






0664 


E0F7 


A6 


80 






0665 


E0F9 


A7 


A0 






0666 


E0FB 


5A 








0667 


E0FC 


26 


F9 






0668 


E0FE 


39 








0669 












0670 












0671 












0672 













STA 

JMP 



$02, X 
SETVIDEO 



SAVE IT IN THE PROPER IMAGE 
GO SET UP THE VIDEO REGISTERS 



* VIDEO RESOLUTION MODE REGISTER (FF99) DATA FOR HSCREEN MODES 
RESTABLE FOB $15 320 PIXELS, 4 COLORS 
LE06D FOB $1E 320 PIXELS, 16 COLORS 
LE06E FCB $14 640 PIXELS, 2 COLORS 
LE06F FCB $1D 640 PIXELS, 4 COLORS 

* VIDEO MODE REGISTER IMAGES FOR THE HI-RES GRAPHICS MODES 

* VIDEO MODE REGISTER IMAGE FOR THE 320x192 GRAPHICS MODE 
IM. GRAPH FCB MMUEN+MC3+MC2 FF90 

C0 LE071 FCB $80, $00, $00, $00, $00, $C0 FF98 

FCB $00, $00 

* VIDEO MODE REGISTER IMAGE FOR THE 640x192 GRAPHICS MODE 
LE079 FCB MMUEN+MC3+MC2 FF90 

C0 LE07A FCB $80, $00, $00, $00, $00, $C0 FF98 

FCB $00, $00 

* PROGRAM INIT0 AND THE 8 VIDEO MODE REGISTERS 

* ENTER WITH X POINTING TO THE DATA TO PUT INTO THE REGISTERS 



GET THE FIRST BYTE 

AND PUT IT INTO INIT0 

POINT TO THE VIDEO MODE REGISTERS 

GET A BYTE 

AND STICK IT INTO THE VIDEO MODE REGISTER 

END OF THE VIDEO MODE REGISTERS? 

NO - KEEP STUFFING REGISTERS 



PROGRAM THE MMU REGISTERS; ENTER WITH X POINTING TO THE DATA TO PLACE INTO THE MMU REGISTERS 



SETVIDEO LDA 


,x+ 


STA 


INIT0 


LDY 


#VIDEOREG 


LE08B LDA 


,x+ 


STA 


,Y+ 


CMPY 


#MMUREG 


BCS 


LE08B 


PULS 


A,X,Y,PC 



PSHS Y,X,B,A 

LEAX IM.MMU.PC 

BSR LE0F1 

PULS A,B,X,Y,PC 



POINT TO THE RAM IMAGE OF THE MMU REGISTERS 
MOVE 16 BYTES INTO THE MMU REGISTERS 



PLACE A BLOCK INTO LOGICAL ADDRESS SPACE BLOCK 0. 

ENTER WITH ACCB CONTAINING THE BLOCK NUMBER TO BE PLACED INTO THE LOGICAL ADDRESS SPACE 

EXIT WITH BLOCK 7.0 REPLACED IN BLOCK OF THE LOGICAL ADDRESS SPACE RAM IMAGE 



SELBLOK0 PSHS 


Y,X,B,A 


LEAX 


IM.MMU.PC 


PSHS 


X 


STB 


,x 


BSR 


LE0F1 


LDB 


SBLOCK7.0 


PULS 


X 


STB 


,x 


PULS 


A,B,X,Y,PC 



POINT TO THE RAM IMAGE OF THE MMU REGISTERS 

TEMP SAVE 

SAVE THE NEW BLOCK NUMBER IN LOGICAL ADDRESS SPACE BLOCK (TR0) 

COPY THE RAM IMAGE OF THE MMU REGISTERS INTO THE MMU REGISTERS 

GET BLOCK 7.0 

RESTORE THE MMU IMAGE POINTER 

RESTORE BLOCK 7 . TO BLOCK OF MMU RAM IMAGE 



PLACE THE HI-RES TEXT SCREEN INTO LOGICAL ADDRESS SPACE BLOCK 1 

EXIT WITH BLOCK 7.1 REPLACED INTO BLOCK 1 OF THE LOGICAL ADDRESS SPACE RAM IMAGE 



SELTEXT PSHS 


Y,X,B,A 


LEAX 


IM.MMU.PC 


PSHS 


X 


LDB 


SBLOCK6.6 


STB 


$01, X 


BSR 


LE0F1 


PULS 


X 


LDB 


SBLOCK7.1 


STB 


$01, X 


PULS 


A,B,X,Y,PC 


LE0CB PSHS 


Y,X,B,A 


LEAX 


IM.MMU.PC 


PSHS 


X 


LDB 


#BL0CK6.4 


STB 


14, X 


BSR 


LE0F1 


PULS 


X 


LDB 


#BLOCK6.5 


STB 


14, X 


PULS 


A,B,X,Y,PC 



POINT TO THE RAM IMAGE OF THE MMU REGISTERS 

TEMP SAVE 

GET THE BLOCK WHICH CONTAINS THE HI-RES TEXT SCREEN 

AND SAVE IT IN THE MMU IMAGE OF TASK REGISTER 

COPY THE RAM IMAGE OF THE MMU REGISTERS INTO THE MMU REGISTERS 

RESTORE THE MMU IMAGE PONTER 

GET BLOCK 7.1 (BASIC'S NORMAL LOGICAL BLOCK 1) 

AND SAVE IT IN THE MMU IMAGE 



POINT TO THE MMU RAM IMAGE 

TEMP SAVE 

GET BLOCK 6.4 

AND SAVE IT IN LOGICAL BLOCK 6 OF TASK REGISTER 1 

COPY THE RAM IMAGE OF THE MMU REGISTERS INTO THE MMU REGISTERS 

RESTORE MMU IMAGE POINTER 

GET THE 'NORMAL' BLOCK FOR TASK REGISTER 1, LOGICAL BLOCK 6 

PUT IT BACK INTO TASK REGISTER 1 IMAGE 



MASTER IMAGES USED TO PROGRAM THE CUSTOM CHIP'S MMU REGISTERS 
TASK REGISTER 
M.MMU FCB BLOCK7.0,BLOCK7.1,BLOCK7.2 
BL0CK7.3,BL0CK7.4,BL0CK7.5 
BLOCK7.6.BLOCK7.7 
TASK REGISTER 1 
E0E9 FCB BLOCK7.0.BLOCK6.0.BLOCK6.1 

BLOCK6.2,BLOCK6.3,BLOCK7.5 
BLOCK6.5.BLOCK7.7 



DEFAULT VALUES 



DEFAULT VALUES 



COPY 16 BYTES INTO THE MMU REGISTERS 
ENTER WITH X POINTING TO THE 16 BYTES 



LDY 


#MMUREG 


LDB 


#16 


LDA 


,x+ 


STA 


,Y+ 


DECB 




BNE 


LE0F7 


RTS 





POINT TO THE MMU REGISTERS 

16 MMU REGISTERS 

GET A BYTE 

AND PUT IT INTO THE MMU REGISTER 

DECREMENT THE BYTE COUNT 

KEEP GOING UNTIL ALL REGISTERS MOVED 



SELECT TASK REGISTER AS THE ACTIVE TASK REGISTER 

ENTER WITH THE STACK POINTING TO A TEMPORARY LOCATION; THE PERMANENT 

STACK POINTER WAS SAVED ON THIS TEMPORARY STACK WHEN TASK REGISTER 1 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



0673 










0674 










0675 


E0FF 


DD 


40 




0676 


E101 


EC 


E4 




0677 


E103 


DD 


42 




0678 


E105 


EC 


62 




0679 


E107 


DD 


44 




0680 


E109 


5F 






0681 


E10A 


F7 


FF 


91 


0682 


E10D 


10 


DE 


44 


0683 


E110 


DC 


42 




0684 


E112 


34 


06 




0685 


E114 


DC 


40 




0686 


E116 


1C 


AF 




0687 


E118 


39 






0688 










0689 










0690 










0691 


E119 


1A 


50 




0692 


E11B 


DD 


40 




0693 


E11D 


35 


06 




0694 


E11F 


DD 


42 




0695 


E121 


10 


DF 


44 


0696 


E124 


C6 


01 




0697 


E126 


F7 


FF 


91 


0698 


E129 


10 


CE 


DF FF 


0699 


E12D 


DC 


44 




0700 


E12F 


34 


06 




0701 


E131 


DC 


42 




0702 


E133 


34 


06 




0703 


E135 


DC 


40 




0704 


E137 


39 






0705 










0706 










0707 


E138 


0D 


41 




0708 


E13A 


26 


16 




0709 


E13C 


96 


42 




0710 


E13E 


81 


62 




0711 


E140 


23 


06 




0712 


E142 


CE 


01 


IB 


0713 


E145 


7E 


B8 


D7 


0714 


E148 


86 


62 




0715 


E14A 


CE 


El 


58 


0716 


E14D 


97 


42 




0717 


E14F 


7E 


B8 


9D 


0718 


E152 


96 


42 




0719 


E154 


81 


29 




0720 


E156 


23 


03 




0721 


E158 


7E 


B8 


D7 


0722 


E15B 


86 


29 




0723 


E15D 


CE 


El 


5D 


0724 


E160 


20 


EB 




0725 










0726 










0727 


E162 


17 






0728 


E163 


El 


C5 




0729 


E165 


El 


92 




0730 


E167 


05 






0731 


E168 


E2 


64 




0732 


E16A 


El 


A6 




0733 


E16C 


00 


00 


00 00 


0734 










0735 










0736 


E172 


33 


4A 




0737 


E174 


6D 


C4 




0738 


E176 


10 


26 


D6 7F 


0739 


E17A 


30 


IF 




0740 


E17C 


A6 


80 




0741 


E17E 


84 


7F 




0742 


E180 


81 


62 




0743 


E182 


25 


07 




0744 


E184 


80 


62 




0745 


E186 


CE 


El 


58 


0746 


E189 


20 


E7 




0747 


E18B 


80 


29 




0748 


E18D 


CE 


El 


5D 


0749 


E190 


20 


E0 




0750 










0751 










0752 


E192 


81 


E2 




0753 


E194 


25 


04 




0754 


E196 


81 


F8 




0755 


E198 


23 


04 




0756 


E19A 


6E 


9F 


01 37 


0757 


E19E 


80 


E2 




0758 


E1A0 


8E 


E2 


36 


0759 


E1A3 


7E 


AD 


D4 


0760 










0761 










0762 


E1A6 


CI 


52 




0763 


E1A8 


25 


04 




0764 


E1AA 


CI 


5A 




0765 


E1AC 


23 


04 




0766 


E1AE 


6E 


9F 


01 3C 


0767 


E1B2 


C0 


52 




0768 


E1B4 


CI 


04 





WAS SELECTED AS THE ACTIVE TASK REGISTER 



SELTASK0 STD 


V40 


LDD 


,S 


STD 


V42 


LDD 


$02, S 


STD 


V44 


CLRB 




STB 


INIT1 


LDS 


V44 


LDD 


V42 


PSHS 


B,A 


LDD 


V40 


ANDCC 


#$AF 


RTS 





TEMPORARILY SAVE ACCD 

GET THE RETURN ADDRESS OFF THE STACK 

AND TEMPORARILY SAVE IT IN V42 

GET THE PERMANENT STACK POINTER FROM THE STACK 

AND TEMPORARILY SAVE IT IN V44 

TASK REGISTER AND TIMER INPUT OF 63.5 MICROSECONDS 

PROGRAM INITIALIZATION REGISTER 1 

RESET THE STACK POINTER 

GET BACK THE RETURN ADDRESS 

AND PUT IT ONTO THE STACK 

RESTORE ACCD 

TURN ON IRO, FIRO 



* SELECT TASK REGISTER 1 AS THE ACTIVE TASK REGISTER 

* EXIT WITH THE STACK POINTER SET TO A TEMPORARY LOCATION 
SELTASK1 ORCC #$50 DISABLE INTERRUPTS 

TEMPORARILY SAVE ACCD IN V40 

GET THE RETURN ADDRESS 

AND TEMPORARILY SAVE IT IN V42 

TEMPORARILY SAVE THE STACK POINTER IN V44 

TASK REGISTER 1 AND TIMER INPUT AT 63.5 MICROSECONDS 

SETUP INITIALIZATION REGISTER 1 

PUT THE STACK JUST BELOW THE START OF ENHANCED BASIC 

GET THE OLD STACK POINTER BACK 

AND STUFF IT ONTO THE STACK 

GET THE RETURN ADDRESS BACK 

AND STUFF IT ONTO THE STACK TOO 

GET BACK ACCD 



CHECK THE TOKEN FLAG 

BRANCH IF IT IS A FUNCTION TOKEN 

GET THE TOKEN COUNTER 

COMPARE TO THE FIRST ENHANCED BASIC TOKEN 

BRANCH IF BEFORE FIRST TOKEN 

POINT U TO EXTENDED COLOR BASIC'S INTERPRETATION TABLE 

RE-ENTER THE MAIN STREAM CODE 

FORCE THE TOKEN COUNTER TO THE FIRST ENHANCED BASIC TOKEN NUMBER 

POINT TO ENHANCED BASIC'S COMMAND INTERPRETATION TABLE 

SAVE THE NEW TOKEN COUNTER 

RE-ENTER THE MAIN STREAM CODE 

GET THE TOKEN COUNTER 

COMPARE TO THE FIRST ENHANCED FUNCTION TOKEN NUMBER 

BRANCH IF LESS THAN ENHANCED TOKEN NUMBER 

RE-ENTER THE MAIN STREAM CODE 

FORCE COUNTER TO FIRST ENHANCED FUNCTION 

POINT TO THE ENHANCED FUNCTION INTERPRETATION TABLE 



23 BASIC 2.0 COMMANDS 

BASIC 2.0'S COMMAND DICTIONARY 

COMMAND PROCESSING ROUTINE ENTRY POINT 

5 BASIC 2.0 FUNCTIONS 

FUNCTION DICTIONARY TABLE 

FUNCTION PROCESSING ROUTINE ENTRY POINT 

DUMMY SPACE USED TO SIMULATE AN EMPTY COMMAND INTERP. VECTOR TABLE 



SKIP TO THE NEXT COMMAND INTERPRETATION TABLE 

IS THIS A VALID TABLE? 

YES - RE-ENTER THE MAIN STREAM CODE 

UNNECESSARY INSTRUCTION; NEXT ONE SHOULD JUST BE LDA -1 

GET THE TOKEN FROM BASIC'S INPUT LINE 

STRIP OFF THE $80 COMMAND TOKEN BIAS 

FIRST LEGAL BASIC 2.0 COMMAND TOKEN NUMBER 

BRANCH IF LEGAL TOKEN 

ADJUST BASIC 2.0 TOKENS TO START AT 

POINT TO ENHANCED BASIC'S COMMAND INTERPRETATION TABLE 





STD 


V40 




PULS 


A,B 




STD 


V42 




STS 


V44 




LDB 


#$01 




STB 


INIT1 




LDS 


#TMPSTACK 




LDD 


V44 




PSHS 


B,A 




LDD 


V42 




PSHS 


B,A 




LDD 


V40 




RTS 




* CRUNCH 


1 A TOKEN PATCH ENTERED FROM $B8D4 


ALINK2 


TST 


V41 




BNE 


LE152 




LDA 


V42 




CMPA 


#$62 




BLS 


LE148 




LDU 


SCOMVEC-5 




JMP 


LB8D7 


LE148 


LDA 


#$62 




LDU 


LE158 


LE14D 


STA 


V42 




JMP 


LB89D 


LE152 


LDA 


V42 




CMPA 


#$29 




BLS 


LE15B 


LE158 


JMP 


LB9D7 


LE15B 


LDA 


#$29 


LE15D 


LDU 


#LE15D 




BRA 


LE14D 


* BASIC 


2.0 COMMAND INTERPRETATION VECTOR T, 


EBCOMTAE 


: FCB 


23 


LE163 


FDB 


COMDIC20 


LE165 


FDB 


ALINK4 


LE167 


FCB 


5 


LE168 


FDB 


FUNDIC20 


LE16A 


FDB 


ALINK5 


LE16C 


FCB 


$00, $00, $00, $00, $00, $00 


* UNCRUNCH A TOKEN PATCH ENTERED FROM $B7F3 


ALINK3 


LEAU 


10, U 




TST 


,u 




LBNE 


LD67F 




LEAX 


$-01, X 




LDA 


,x+ 




ANDA 


#$7F 




CMPA 


#$62 




BCS 


LE18B 




SUBA 


#$62 




LDU 


#LE158 




BRA 


ALINK3 


LE18B 


SUBA 


#$29 




LDU 


#LE15D 




BRA 


ALINK3 


* BASIC 


2.0 COMMAND PROCESSING ROUTINE ENTR' 


ALINK4 


CMPA 


#$E2 




BCS 


LE19A 




CMPA 


#$F8 




BLS 


LE19E 


LE19A 


JMP 


[COMVEC+23] 


LE19E 


SUBA 


#$E2 




LDX 


#COMDIS20 




JMP 


LADD4 


* BASIC 


2.0 FUNCTION PROCESSING ROUTINE PATr 


ALINK5 


CMPB 


#$52 




BCS 


LE1AE 




CMPB 


#$5A 




BLS 


LE1B2 


LE1AE 


JMP 


[COMVEC+28] 


LE1B2 


SUBB 


#$52 




CMPB 


#2*2 



SUBTRACT OUT THE FIRST ENHANCED FUNCTION TABLE 

POINT U TO BE ABLE TO SEARCH FOR AN ENHANCED FUNCTION TOKEN 



TOKEN NUMBER OF FIRST ENHANCED BASIC COMMAND 

BRANCH IF LESS THAN ENHANCED TOKEN 

COMPARE TO THE HIGHEST ENHANCED BASIC TOKEN 

BRANCH IF ENHANCED BASIC TOKEN 

GO TO DISK BASIC'S COMMAND HANDLER 

SUBTRACT OUT THE NON-ENHANCED BASIC TOKENS 

POINT X TO ENHANCED BASIC'S COMMAND DISPATCH TABLE 

RE-ENTER THE MAIN STREAM CODE 



COMPARE TO THE FIRST ENHANCED BASIC FUNCTION TOKEN 

BRANCH IF LESS THAN ENHANCED TOKEN 

COMPARE TO THE HIGHEST FUNCTION TOKEN 

BRANCH IF ENHANCED TOKEN 

JUMP TO DISK BASIC'S FUNCTION HANDLER 

SUBTRACT OUT THE NON-ENHANCED BASIC TOKENS 

CHECK FOR LPEEK, BUTTON, HPOINT 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 



E1B6 24 07 

E1B8 34 04 

E1BA BD B2 62 

E1BD 35 04 

E1BF 8E E2 7E 

E1C2 7E B2 CE 



BCC 


LE1BF 


PSHS 


B 


JSR 


LB262 


PULS 


B 


LDX 


#FUNDIS20 


JMP 


LB2CE 



BASIC 2.0 COMMAND DICTIONARY TABLE 



E1C5 
E1CA 
E1D0 
E1D1 
E1D7 
E1D8 
E1DD 
E1E1 
E1E7 
E1ED 
E1F3 
E1F4 
E1F9 
E1FD 
E201 
E206 
E20C 
E20F 
E212 
E218 
E21D 
E221 
E227 
E22C 
E22F 
E232 



49 44 54 C8 COMDIC20 FCC 

41 4C 45 54 54 LE1CA FCC 



53 43 52 45 45 LE1D1 

50 4F 4B C5 LE1D8 

43 4C D3 LE1DD 

43 4F 4C 4F D2 LE1E1 

50 41 49 4E D4 LE1E7 

43 49 52 43 4C LE1ED 



4C 49 4E C5 

47 45 D4 
50 55 D4 
42 55 46 C6 
50 52 49 4E D4 
52 D2 

52 CB 

4F 43 41 54 C5 

53 54 41 D4 

53 45 D4 

52 45 53 45 
44 52 41 D7 
4D D0 
47 C2 

54 54 D2 



D4 



LE1F4 
LE1F9 
LE1FD 
LE201 
LE206 
LE20C 
LE20F 
LE212 
LE218 
LE21D 
LE221 
LE227 
LE22C 
LE22F 
LE232 



FCC 
FCC 
FCC 
FCC 
FCC 

FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 



'WIDT' ,$80+'H' 
■PALETT' ,$80+' E' 

'HSCREE' ,$80+'N' 

'LPOK' ,$80+'E' 
'HCL' ,$80+ , S' 
'HCOLO' ,$80+'R' 
'HPAIN' ,$80+'T' 
'HCIRCL' ,$80+'E' 

'HLIN ' ,$80+'E' 
'HGE' ,$80+'T' 
'HPU' ,$80+'T' 
'HBUF' ,$80+'F' 
'HPRIN' ,$80+'T' 
'ER' ,$80+'R' 
'BR' ,$80+'K' 
'LOCAT' ,$80+' E' 
'HSTA' ,$80+'T' 
'HSE' ,$80+'T' 
'HRESE' ,$80+'T' 
'HDRA' ,$80+' W 
'CM' ,$80+' P' 
'RG' ,$80+'B' 
'ATT' ,$80+'R' 



BRANCH IF ERNO, ERLIN 

SAVE THE TOKEN COUNTER 

EVALUATE AN EXPRESSION IN PARENTHESIS 

RESTORE THE TOKEN COUNTER 

POINT TO ENHANCED BASIC'S FUNCTION DISPATCH TABLE 

RE-ENTER THE MAIN STREAM CODE 



TOKEN # 

E2 

E3 



E5 
E6 
E7 
E8 
E9 

EA 

EB 
EC 
ED 
EE 
EF 
FO 
Fl 
F2 
F3 
F4 
F5 
T6 
F7 
F8 



BASIC 2.0 COMMAND DISPATCH TABLE 



0809 


E236 


F6 


36 


0810 


E238 


E5 


F0 


0811 


E23A 


E6 


88 


0812 


E23C 


E5 


45 


0813 


E23E 


E6 


CF 


0814 


E240 


E6 


F4 


0815 


E242 


EB 


F5 


0816 


E244 


EA 


49 


0817 


E246 


E8 


82 


0818 


E248 


ED 


E5 


0819 


E24A 


ED 


ED 


0820 


E24C 


ED 


58 


0821 


E24E 


EF 


3F 


0822 


E250 


E3 


D4 


0823 


E252 


E3 


E6 


0824 


E254 


F8 


D2 


0825 


E256 


F9 


25 


0826 


E258 


E7 


61 


0827 


E25A 


E7 


65 


0828 


E25C 


F3 


9D 


0829 


E25E 


E6 


76 


0830 


E260 


E6 


74 


0831 


E262 


F9 


B9 


0832 








0833 








0834 








0835 









COMDIS20 


FDB 


WIDTH 


LE238 


FDB 


PALETTE 


LE23A 


FDB 


HSCREEN 


LE23C 


FDB 


LPOKE 


LE23E 


FDB 


HCLS 


LE240 


FDB 


HCOLOR 


LE242 


FDB 


HPAINT 


LE244 


FDB 


HCIRCLE 


LE246 


FDB 


HLINE 


LE248 


FDB 


HGET 


LE24A 


FDB 


HPUT 


LE24C 


FDB 


HBUFF 


LE24E 


FDB 


HPRINT 


LE250 


FDB 


ERR 


LE252 


FDB 


BRK 


LE254 


FDB 


LOCATE 


LE256 


FDB 


HSTAT 


LE258 


FDB 


HSET 


LE25A 


FDB 


HRESET 


LE25C 


FDB 


HDRAW 


LE25E 


FDB 


CMP 


LE260 


FDB 


RGB 


LE262 


FDB 


ATTR 



BASIC 2.0 FUNCTION DICTIONARY TABLE 



E264 4C 50 45 45 CB FUNDIC20 FCC ' LPEE' ,$80+' K' 



E269 42 55 54 54 4F CE LE269 FCC 

E26F 48 50 4F 49 4E D4 LE26F FCC 

E275 45 52 4E CF LE275 FCC 

E279 45 52 4C 49 CE LE279 FCC 



•BUTTO' ,$80+'N' 
'HPOIN' ,$80+'T' 
'ERN' ,$80+'O' 
'ERLI' ,$80+'N' 



0841 










0842 










0843 










0844 










0845 


E27E 


E5 


73 




0846 


E280 


E5 


Bl 




0847 


E282 


E8 


5C 




0848 


E284 


E4 


E9 




0849 


E286 


E4 


FD 




0850 










0851 










0852 


E288 


8E 


80 


E7 


0853 


E28B 


BD 


B9 


9C 


0854 


E28E 


8E 


E2 


F7 


0855 


E291 


BD 


B9 


9C 


0856 


E294 


7E 


80 


B8 


0857 










0858 










0859 


E297 


8E 


E2 


A2 


0860 


E29A 


7E 


C0 


C9 


0861 










0862 


E29D 


8E 


E3 


15 


0863 


E2A0 


7E 


C0 


DC 



BASIC 2.0 FUNCTION DISPATCH TABLE 



FUNDIS20 


FDB 


LPEEK 


LE280 


FDB 


BUTTON 


LE282 


FDB 


HPOINT 


LE284 


FDB 


ERNO 


LE286 


FDB 


ERLIN 





TOKEN # 


WIDTH 


E2 


PALETTE 


E3 


HSCREEN 


E4 


LPOKE 


E5 


HCLS 


E6 


HCOLOR 


E7 


HPAINT 


E8 


HCIRCLE 


E9 


HLINE 


EA 


HGET 


EB 


HPUT 


EC 


HBUFF 


ED 


HPRINT 


EE 


ERR 


EF 


BRK 


F0 


LOCATE 


Fl 


HSTAT 


F2 


HSET 


F3 


HRESET 


F4 


HDRAW 


F5 


CMP 


F6 


RGB 


F7 


ATTR 


F8 



TOKEN # 

A8 

A9 

AA 

AB 

AC 



LPEEK 


A8 


BUTTON 


A9 


HPOINT 


AA 


ERNO 


AB 


ERLIN 


AC 



PRINT THE COPYRIGHT MESSAGE PATCH ENTERED FROM $80B2 



ALINK12 LDX #L80E7 

JSR STRINOUT 

LDX #MWAREMS-1 

JSR STRINOUT 
JMP 



POINT TO EXTENDED BASIC'S COPYRIGHT MESSAGE 
COPY A STRING FROM (X) TO CONSOLE OUT 
MICROWARE'S COPYRIGHT MESSAGE 
COPY A STRING FROM (X) TO CONSOLE OUT 
EXTENDED BASIC'S WARM START REENTRY 

* PRINT THE DISK BASIC 2.0 COPYRIGHT MESSAGE PATCH ENTERED FROM $C0C6 

ALINK28 LDX #DISK20MS-1 POINT TO DISK BASIC 2.0 MESSAGE 

JMP LC0C9 COPY MESSAGE TO SCREEN AND WARM START DISK BASIC 2.0 

* PRINT THE DISK BASIC 2.1 COPYRIGHT MESSAGE PATCH ENTERED FROM $C0C6 

ALINK29 LDX #LE313+2 POINT TO DISK BASIC 2.1 MESSAGE 

JMP LC0DC COPY MESSAGE TO SCREEN AND WARM START DISK BASIC 2.1 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0865 
0866 
0867 



0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0881 
0882 



0891 
0892 



0895 
0896 
0897 



0901 
0902 
0903 
0904 
0905 
0906 
0907 



0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 



E2A3 44 49 53 4B 20 45 DISK20MS FCC 

E2A9 58 54 45 4E 44 45 

E2AF 44 20 43 4F 4C 4F 

E2B5 52 20 42 41 53 49 

E2BB 43 20 32 2E 30 

E2C0 0D LE2C0 

E2C1 43 4F 50 52 2E 20 LE2C1 

E2C7 31 39 38 31 2C 20 

E2CD 31 39 38 36 20 42 

E2D3 59 20 54 41 4E 44 

E2D9 59 

E2DA 0D LE2DA 

E2DB 55 4E 44 45 52 20 LE2DB 

E2E1 4C 49 43 45 4E 53 

E2E7 45 20 46 52 4F 4D 

E2ED 20 4D 49 43 52 4F 

E2F3 53 4F 46 54 

E2F7 0D LE2F7 

E2F8 41 4E 44 20 4D 49 MWAREMS 

E2FE 43 52 4F 57 41 52 

E304 45 20 53 59 53 54 

E30A 45 4D 53 20 43 4F 

E310 52 50 2E 

E313 0D 0D 00 LE313 

E316 44 49 53 4B 20 45 DISK21MS FCC 

E31C 58 54 45 4E 44 45 

E322 44 20 43 4F 4C 4F 

E328 52 20 42 41 53 49 

E32E 43 20 32 2E 31 

E333 0D LE333 

E334 43 4F 50 52 2E 20 LE334 

E33A 31 39 38 32 2C 20 

E340 31 39 38 36 20 42 

E346 59 20 54 41 4E 44 

E34C 59 

E34D 0D LE33D 

E34E 55 4E 44 45 52 20 LE33E 

E354 4C 49 43 45 4E 53 

E35A 45 20 46 52 4F 4D 

E360 20 4D 49 43 52 4F 

E366 53 4F 46 54 

E36A 0D LE36A 

E36B 41 4E 44 20 4D 49 LE36B 

E371 43 52 4F 57 41 52 

E377 45 20 53 59 53 54 

E37D 45 4D 53 20 43 4F 

E383 52 50 2E 

E386 0D 0D 00 



E389 4F 

E38A 5F 

E38B 10 21 1C 71 

E38F F7 FE 08 

E392 DD E6 

E394 FD FE 0C 

E397 FD FE 0E 

E39A B7 FE 0B 

E39D 86 01 

E39F B7 FE 0A 

E3A2 86 34 

E3A4 B7 FF A0 

E3A7 CC FF FF 

E3AA DD 00 

E3AC 86 38 

E3AE B7 FF A0 

E3B1 7E AD 19 



'DISK EXTENDED COLOR BASIC 2.0' 



FCB 
FCC 



FCB 
FCC 



FCB 
FCC 



FCB 



FCB 
FCC 



FCB 
FCC 



FCB 
FCC 



$0D 
'COPR. 



1981, 1986 BY TANDY' 



$0D 

•UNDER LICENSE FROM MICROSOFT' 



$0D 

'AND MICROWARE SYSTEMS CORP.' 



$0D,$0D,$00 

'DISK EXTENDED COLOR BASIC 2.1' 



$0D 
'COPR. 



$0D 
'UNDER 



1981, 1986 BY TANDY' 



LICENSE FROM MICROSOFT' 



$0D 

'AND MICROWARE SYSTEMS CORP.' 



E3B4 81 EF 

E3B6 27 1C 

E3B8 81 F0 

E3BA 27 2A 

E3BC BD B7 0B 

E3BF 7E AF 45 

E3C2 9D 9F 

E3C4 81 81 

E3C6 26 07 

E3C8 9D 9F 

E3CA 81 A5 

E3CC 26 01 

E3CE 39 

E3CF 32 62 

E3D1 7E B2 77 



E3D4 8D EC 

E3D6 9D 9F 

E3D8 BD AF 67 

E3DB DC 2B 

E3DD FD FE 0E 

E3E0 DC 68 

E3E2 FD FE 11 

E3E5 39 



LE386 


FCB 


$0D,$0D,$l 


* GRAPHICS INITIALIZATIOI 


ALINK14 


CLRA 
CLRB 






LBRN 


RAMLINK 




STB 


H.CRSATT 




STD 


HRMODE 




STD 


H.ONBRK 




STD 


H.ONERR 




STA 


H.BCOLOR 




LDA 


#$01 




STA 


H.FCOLOR 




LDA 


#BL0CK6.4 




STA 


MMUREG 




LDD 


#$FFFF 




STD 


$0 




LDA 


#BLOCK7.0 




STA 


MMUREG 




JMP 


LAD19 


* ON COMMAND 


:for on err 


ALINK18 


CMPA 


#$EF 




BEQ 


ERR 




CMPA 


#$F0 




BEQ 


BRK 




JSR 


EVALEXPB 




JMP 


LAF45 


LE3C2 


JSR 


GETNCH 




CMPA 


#$81 




BNE 


LE3CF 




JSR 


GETNCH 




CMPA 


#$A5 




BNE 


LE3CF 




RTS 




LE3CF 


LEAS 


$02, S 




JMP 


LB277 


* ERR 






ERR 


BSR 


LE3C2 




JSR 


GETNCH 




JSR 


LAF67 




LDD 


BINVAL 




STD 


H.ONERR 




LDD 


CURLIN 




STD 


H.ONERRS 




RTS 





RAM HOOK 

SET CURSOR ATTRIBUTES TO ZERO 

SET HI-RES GRAPHICS AND TEXT MODES TO OFF 

RESET THE ON BRK ADDRESS TO ZERO; NON-INITIALIZED 

RESET THE ON ERROR ADDRES TO ZERO; NON-INITIALIZED 

PALETTE REGISTER ZERO IS THE DEFAULT BACKGROUND COLOR 

DEFAULT PALETTE REGISTER FOR THE FOREGROUND COLOR 

USE PALETTE REGISTER1 AS THE FOREGROUND COLOR 

GET THE HPUT/HGET BUFFER BLOCK 

PIT IT INTO LOGICAL BLOCK 

HPUT/HGET BUFFER EMPTY FLAG 

RESET THE HPUT/HGET BUFFER TO EMPTY 



RESTORE BLOCK 7.0 TO LOGICAL 
GO DO A COMPLETE 'NEW 



BRK' TOKEN 



ILOCK OF TASK REGISTER 



EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

JUMP TO THE ON C0MMAND($AF45) 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 

'GO' TOKEN 

SYNTAX ERROR IF NOT GO 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 

'TO' TOKEN 

SYNTAX ERROR IF NOT GOTO 

REMOVE ONE RETURN ADDRESS FROM THE STACK 
•SYNTAX' ERROR 



CHECK FOR THE 'GO' AND 'TO' TOKENS 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 

STRIP THE 'GOTO' LINE NUMBER FROM THE BASIC INPUT LINE 

GET THE 'GOTO' LINE NUMBER 

SAVE IT 

GET THE CURRENT LINE NUMBER 

AND SAVE IT AS THE SOURCE LINE NUMBER 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0961 


E3E6 


8D 


DA 




0962 


E3E8 


9D 


9F 




0963 


E3EA 


BD 


AF 


67 


0964 


E3ED 


DC 


2B 




0965 


E3EF 


FD 


FE 


0C 


0966 


E3F2 


DC 


68 




0967 


E3F4 


FD 


FE 


15 


0968 


E3F7 


39 






0969 










0970 










0971 


E3F8 


68 


02 




0972 


E3FA 


69 


01 




0973 


E3FC 


69 


84 




0974 


E3FE 


10 


25 


D6 90 


0975 


E402 


5A 






0976 


E403 


26 


F3 




0977 


E405 


80 


30 




0978 


E407 


AB 


02 




0979 


E409 


A7 


02 




0980 


E40B 


39 






0981 










0982 










0983 


E40C 


10 


25 


A3 F0 


0984 


E410 


7E 


88 


3F 


0985 










0986 










0987 


E413 


81 


03 




0988 


E415 


1A 


01 




0989 


E417 


26 


0D 




0990 


E419 


34 


03 




0991 


E41B 


96 


E6 




0992 


E41D 


27 


05 




0993 


E41F 


0F 


E6 




0994 


E421 


BD 


E0 


19 


0995 


E424 


35 


03 




0996 


E426 


7E 


A3 


C6 


0997 










0998 










0999 


E429 


81 


03 




1000 


E42B 


27 


03 




1001 


E42D 


7E 


AD 


F4 


1002 


E430 


86 


01 




1003 


E432 


B7 


FE 


17 


1004 


E435 


96 


68 




1005 


E437 


4C 






1006 


E438 


27 


05 




1007 


E43A 


FC 


FE 


0C 


1008 


E43D 


26 


0A 




1009 


E43F 


96 


E6 




1010 


E441 


27 


03 




1011 


E443 


BD 


E0 


19 


1012 


E446 


7E 


AE 


09 


1013 


E449 


DD 


2B 




1014 


E44B 


7D 


FE 


17 


1015 


E44E 


26 


08 




1016 


E450 


10 


DE 


21 


1017 


E453 


CC 


AD 


C4 


1018 


E456 


34 


06 




1019 


E458 


BD 


AE 


EB 


1020 


E45B 


30 


01 




1021 


E45D 


DC 


2B 




1022 


E45F 


10 


93 


68 


1023 


E462 


22 


02 




1024 


E464 


9E 


19 




1025 


E466 


BD 


AD 


05 


1026 


E469 


10 


25 


00 Bl 


1027 


E46D 


7E 


AE 


BB 


1028 










1029 










1030 


E470 


7F 


FE 


17 


1031 


E473 


96 


68 




1032 


E475 


4C 






1033 


E476 


27 


05 




1034 


E478 


BE 


FE 


0E 


1035 


E47B 


26 


36 




1036 


E47D 


34 


02 




1037 


E47F 


96 


E6 




1038 


E481 


35 


02 




1039 


E483 


27 


03 




1040 


E485 


BD 


E0 


19 


1041 


E488 


CI 


4C 




1042 


E48A 


26 


13 




1043 


E48C 


BD 


B9 


5C 


1044 


E48F 


BD 


B9 


AF 


1045 


E492 


30 


8D 


00 36 


1046 


E496 


BD 


AC 


A0 


1047 


E499 


BD 


AC 


A0 


1048 


E49C 


7E 


AC 


65 


1049 


E49F 


CI 


4E 




1050 


E4A1 


26 


0D 




1051 


E4A3 


BD 


B9 


5C 


1052 


E4A6 


BD 


B9 


AF 


1053 


E4A9 


30 


8D 


00 21 


1054 


E4AD 


7E 


E4 


96 


1055 


E4B0 


7E 


AC 


49 


1056 


E4B3 


F7 


FE 


10 



BRK BSR 


LE3C2 


JSR 


GETNCH 


JSR 


LAF67 


LDD 


BINVAL 


STD 


H.ONBRK 


LDD 


CURLIN 


STD 


H.ONBRKS 


RTS 




* &H TYPE VARIABLE EVAL 


ALINK6A LSL 


$02, X 


ROL 


$01, X 


ROL 


,x 


LBCS 


LBA92 


DECB 




BNE 


ALINK6A 


SUBA 


#'0' 


ADDA 


$02, X 


STA 


$02, X 


RTS 





CHECK FOR THE 'GO' AND THE 'TO' TOKENS 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 

STRIP THE 'GOTO' LINE NUMBER FROM THE BASIC INPUT LINE 

GET THE 'GOTO' LINE NUMBER 

SAVE IT 

GET THE CURRENT LINE NUMBER 

AND SAVE IT AS THE SOURCE LINE NUMBER 



* MULTIPLY THE TEMPORARY 

* ACCUMULATOR BY TWO 

'OV OVERFLOW ERROR ($BA92) 
DECREMENT THE SHIFT COUNTER 
LOOP UNTIL DONE 
MASK OFF ASCII 

* ADD DIGIT TO TEMPORARY 

* ACCUMULATOR AND SAVE IT 



* SH TYPE VARIABLE EVALUATION PATCH ENTERED FROM $8843 
ALINK6B LBCS L8800 ($8800) 

JMP L883F ($883F) 



BASIC'S LINE INPUT PATCH ENTERED FROM $A3C2 



ALINK16 


CMPA 


#$03 






ORCC 


#$01 






BNE 


LE426 






PSHS 


A,CC 






LDA 


HRMODE 






BEQ 


LE424 






CLR 


HRMODE 






JSR 


SETTEXT 




LE424 


PULS 


CC,A 




LE426 


JMP 


LA3C6 




* BREAK 


CHECK 


PATCH ENTERED FROM 


$ADF0 


ALINK15 


CMPA 


#$03 






BEQ 


LE430 






JMP 


LADF4 




LE430 


LDA 


#$01 






STA 


H.ERRBRK 






LDA 


CURLIN 






INCA 








BEQ 


LE43F 






LDD 


H.ONBRK 






BNE 


LE449 




LE43F 


LDA 


HRMODE 






BEQ 


LE446 






JSR 


SETTEXT 




LE446 


JMP 


LAE09 




LE449 


STD 


BINVAL 






TST 


H.ERRBRK 






BNE 


LE458 






LDS 


FRETOP 






LDD 


#LADC4 






PSHS 


B,A 




LE458 


JSR 


LAEEB 






LEAX 


$01, X 






LDD 


BINVAL 






CMPD 


CURLIN 






BHI 


LE466 






LDX 


TXTTAB 




LE466 


JSR 


LAD05 






LBCS 


LE51E 






JMP 


LAEBB 




* ERROR 


SERVICING ROUTINE PATCH 1 


INTEREI 


ALINK20 


CLR 


H.ERRBRK 






LDA 


CURLIN 






INCA 








BEQ 


LE47D 






LDX 


H.ONERR 






BNE 


LE4B3 




LE47D 


PSHS 


A 






LDA 


HRMODE 






PULS 


A 






BEQ 


LE488 






JSR 


SETTEXT 




LE488 


CMPB 


#38*2 






BNE 


LE49F 






JSR 


LB95C 






JSR 


LB9AF 






LEAX 


BAS20ERR.PC 




LE496 


JSR 


LACA0 






JSR 


LACA0 






JMP 


LAC65 




LE49F 


CMPB 


#39*2 






BNE 


LE4B0 






JSR 


LB95C 






JSR 


LB9AF 






LEAX 


LE4CE.PC 






JMP 


LE496 




LE4B0 


JMP 


LAC49 




LE4B3 


STB 


H. ERROR 





BREAK KEY DEPRESSED? 

SET THE CARRY FLAG 

BRANCH IF NOT THE BREAK KEY 

SAVE REGISTERS 

CHECK THE HI-RES GRAPHICS MODE 

BRANCH IF IN COCO COMPATIBLE MODE 

FORCE TO COCO COMPATIBLE MODE 

PROGRAM THE VIDEO MODE REGISTERS 

RESTORE REGISTERS 

RE-ENTER THE MAIN STREAM OF CODE ($A3C6) 



BREAK KEY DEPRESSED? 

YES 

RE-ENTER THE MAIN STREAM OF CODE ($ADF4) 

'BREAK' FLAG 

SAVE IN THE ERROR/BREAK FLAG 

DIRECT MODE? 

$FF SIGNIFIES DIRECT MODE 

BRANCH IF DIRECT MODE 

HAS AN ON BRK TRAP BEEN SET UP? 

YES 

CHECK THE HI-RES GRAPHICS MODE 

BRANCH IF COCO COMPATIBLE 

PROGRAM THE VIDEO DISPLAY REGISTERS 

JUMP TO THE STOP COMMAND ($AE09) 

SAVE THE SEARCH LINE NUMBER 

CHECK THE ERROR/BREAK FLAG 

BRANCH IF BREAK 

IF ERROR, RESET THE STACK POINTER 

* GET THE ADDRESS ($ADC4) OF THE MAIN COMMAND INTERPRETATION 

* LOOP AND SAVE IT AS THE NEW RETURN ADDRESS 
MOVE THE INPUT POINTER TO THE END OF THE LINE 
SKIP TO THE START OF THE NEXT LINE 

GET THE LINE NUMBER WE'RE LOOKING FOR 

COMPARE TO THE CURRENT LINE NUMBER 

BRANCH IF SEARCH LINE NUMBER GREATER THAN CURRENT LINE NUMBER 

POINT X TO THE BEGINNING OF THE PROGRAM 

SEARCH FOR THE PROGRAM LINE NUMBER IN ACCD 

BRANCH IF LINE NUMBER NOT FOUND 

RESET BASIC'S INPUT POINTER AND RETURN ($AEBB) 



SET THE ERROR/BREAK FLAG TO ERROR (0) 

GET THE CURRENT LINE NUMBER 

CHECK FOR DIRECT MODE 

BRANCH IF DIRECT MODE 

HAS AN ON ERROR TRAP BEEN SET UP? 

BRANCH IF ONE HAS 

SAVE ACCA 

TEST THE HI-RES GRAPHICS MODE 

RESTORE ACCA 

BRANCH IF HI-RES GRAPHICS NOT SET UP 

PROGRAM THE VIDEO CONTROL REGISTERS FOR THE CURRENT MODE 

HI-RES GRAPHICS ERROR 

BRANCH IF NOT 

SET UP PRINT PARAMETERS 

SEND A '?' TO CONSOLE OUT 

POINT TO ENHANCED BASIC'S ADDITIONAL ERROR CODES 

GET A CHARACTER FROM X AND SEND IT TO CONSOLE OUT 

DO IT AGAIN 

RE-ENTER THE MAIN STREAM OF CODE ($AC65) 

HI-RES TEXT MODE ERROR 

BRANCH IF NOT 

SET UP THE PRINT PARAMETERS 

SEND A '?' TO CONSOLE OUT 

POINT TO ENHANCED BASIC'S ADDITIONAL ERROR CODES 

GO PRINT THE ERROR CODE POINTED TO BY X 

JUMP TO THE ERROR SERVICING ROUTINE ($AC49) 

SAVE THE ERROR NUMBER 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1057 


E4B6 


34 


04 




1058 


E4B8 


DC 


68 




1059 


E4BA 


FD 


FE 


13 


1060 


E4BD 


35 


04 




1061 


E4BF 


CI 


06 




1062 


E4C1 


26 


04 




1063 


E4C3 


DC 


2B 




1064 


E4C5 


DD 


A6 




1065 


E4C7 


IF 


10 




1066 


E4C9 


16 


FF 


7D 


1067 










1068 










1069 


E4CC 


48 


52 




1070 


E4CE 


48 


50 




1071 










1072 










1073 


E4D0 


34 


06 




1074 


E4D2 


4F 






1075 


E4D3 


5F 






1076 


E4D4 


DD 


2D 




1077 


E4D6 


FD 


FE 


0C 


1078 


E4D9 


FD 


FE 


0E 


1079 


E4DC 


FD 


FE 


13 


1080 


E4DF 


86 


FF 




1081 


E4E1 


B7 


FE 


10 


1082 


E4E4 


35 


06 




1083 


E4E6 


7E 


AD 


43 


1084 










1085 










1086 


E4E9 


4F 






1087 


E4EA 


F6 


FE 


10 


1088 


E4ED 


CI 


FF 




1089 


E4EF 


26 


03 




1090 


E4F1 


ID 






1091 


E4F2 


20 


06 




1092 


E4F4 


CI 


Fl 




1093 


E4F6 


26 


01 




1094 


E4F8 


53 






1095 


E4F9 


57 






1096 


E4FA 


7E 


B4 


F4 


1097 










1098 










1099 


E4FD 


FC 


FE 


13 


1100 


E500 


20 


F8 




1101 










1102 










1103 


E502 


BD 


E0 


19 


1104 


E505 


BD 


B9 


5C 


1105 


E508 


1A 


50 




1106 


E50A 


86 


34 




1107 


E50C 


B7 


FF 


A0 


1108 


E50F 


CC 


FF 


FF 


1109 


E512 


DD 


00 




1110 


E514 


86 


38 




1111 


E516 


B7 


FF 


A0 


1112 


E519 


1C 


AF 




1113 


E51B 


7E 


AC 


76 


1114 










1115 


E51E 


7D 


FE 


17 


1116 


E521 


27 


05 




1117 


E523 


FC 


FE 


15 


1118 


E526 


20 


03 




1119 


E528 


FC 


FE 


11 


1120 


E52B 


DD 


68 




1121 


E52D 


C6 


0E 




1122 


E52F 


7E 


AC 


49 


1123 










1124 










1125 


E532 


FC 


FE 


0C 


1126 


E535 


10 


27 


C8 D8 


1127 


E539 


34 


06 




1128 


E53B 


86 


01 




1129 


E53D 


B7 


FE 


17 


1130 


E540 


35 


06 




1131 


E542 


16 


FF 


04 


1132 










1133 










1134 


E545 


BD 


Bl 


41 


1135 


E548 


10 


21 


1A B4 


1136 


E54C 


8D 


40 




1137 


E54E 


CI 


3F 




1138 


E550 


10 


22 


CE F6 


1139 


E554 


34 


14 




1140 


E556 


BD 


B2 


6D 


1141 


E559 


BD 


B7 


0B 


1142 


E55C 


IF 


98 




1143 


E55E 


35 


14 




1144 


E560 


CI 


3F 




1145 


E562 


10 


22 


CE E4 


1146 


E566 


1A 


50 




1147 


E568 


17 


FB 


36 


1148 


E56B 


A7 


84 




1149 


E56D 


17 


FB 


27 


1150 


E570 


1C 


AF 




1151 


E572 


39 






1152 











PSHS 


B 


LDD 


CURLIN 


STD 


H.ERLINE 


PULS 


B 


CMPB 


#3*2 


BNE 


LE4C7 


LDD 


BINVAL 


STD 


CHARAD 


TFR 


X,D 


LBRA 


LE449 



ALSO PUT IT ON THE STACK TEMPORARILY 

GET THE CURRENT LINE NUMBER 

SAVE THE LINE NUMBER WHERE THE ERROR OCCURRED 

GET BACK THE ERROR NUMBER 

WAS IT AN OUT OF DATA ERROR? 

BRANCH IF NOT 

THE INPUT POINTER IS SAVED IN BINVAL BY THE READ COMMAND 

SAVE NEW ADDRESS FOR BASIC'S INPUT POINTER 

SAVE THE ON ERROR DESTINATION LINE NUMBER IN ACCD 

GO TRANSFER CONTROL TO THAT LINE NUMBER 



* ENHANCED BASIC'S ERROR CODES 
BAS20ERR FCC 'HR' 
LE4CE FCC 'HP' 



38 
39 



HIRES GRAHICS ERROR 
HIRES TEXT ERROR 



* LINE 


INTO 'NEW FROM $AD3F 


ALINK19 


PSHS 

CLRA 
CLRB 


B,A 




STD 


OLDPTR 




STD 


H.ONBRK 




STD 


H.ONERR 




STD 


H.ERLINE 




LDA 


#$FF 




STA 


H. ERROR 




PULS 


A,B 




JMP 


LAD43 


* ERNO 






ERNO 


CLRA 






LDB 


H. ERROR 




CMPB 


#$FF 




BNE 


LE4F4 




SEX 






BRA 


LE4FA 


LE4F4 


CMPB 


#$F1 




BNE 


LE4F9 




COMB 




LE4F9 


ASRB 




LE4FA 


JMP 


GIVABF 



* ERLIN 

ERLIN LDD H.ERLINE 

BRA LE4FA 



SAVE THE CONTENTS OF ACCD 



RESET 'CONT' ADDRESS SO THAT YOU CAN'T CONTINUE 

RESET THE ON BRK ADDRESS TO ZERO: NON-INITIALIZED 

RESET THE ON ERROR ADDRESS TO ZERO: NON-INITIALIZED 

RESET THE ERLIN LINE NUMBER TO ZERO: NO ERROR 

INDICATES NO ERROR 

RESET ERROR NUMBER TO NO ERROR 

RESTORE ACCD 

JUMP TO THE END OF THE NEW COMMAND ($AD43) 



CLEAR THE MS BYTE OF ACCD 

GET THE ERROR NUMBER 

IS IT A REAL ERROR 

BRANCH IF YES 

NOW ACCD = $FFFF IF NOT A REAL ERROR 

CONVERT ACCD TO FLOATING POINT 

CHECK FOR ERROR NUMBER $F1 

BRANCH IF NOT ERROR $F1 

CONVERT TO 7*2 (UNDEFINED LINE NUMBER) 

DIVIDE ERROR NUMBER BY 2 

CONVERT ACCD INTO A FLOATING POINT NUMBER 



GET THE LINE NUMBER WHERE THE ERROR OCCURRED 
CONVERT IT INTO A FLOATING POINT NUMBER 



BASIC'S MAIN LOOP IN THE DIRECT MODE PATCH ENTERED FROM $AC73 



ALINK21 JSR 
JSR 
ORCC 
LDA 

STA 
LDD 
STD 
LDA 
STA 



SETTEXT 

LB95C 

#$50 

#BL0CK6.4 

MMUREG 

#$FFFF 



#BL0CK7.4 

MMUREG 



ANDCC #$AF 
JMP LAC76 



SET UP HI-RES TEXT MODE IF ENABLED 

SET UP VARIOUS PRINT PARAMETERS 

DISABLE IRQ, FIRQ 

GET7PUT BUFFER BLOCK 

PUT IT INTO LOGICAL BLOCK 

NO HGET/HPUT BUFFERS USED FLAG 

SET THE HGET7HPUT BUFFER SPACE TO SHOW NO BUFFERS IN USE 

GET NORMAL LOGICAL BLOCK 

PUT BACK INTO THE LOGICAL ADDRESS SPACE 

ENABLE IRQ, FIRQ 

RE-ENTER THE MAIN STREAM CODE ($AC76) 



LE528 
LE52B 



TST 
BEQ 

LDD 
BRA 
LDD 
STD 
LDB 
JMP 



H.ERRBRK 

LE528 

H.ONBRKS 

LE52B 

H.ONERRS 

CURLIN 

#7*2 

LAC49 



CHECK THE ERROR7BREAK FLAG 
BRANCH IF ERROR BROUGHT US HERE 
GET THE ON BRK SOURCE LINE NUMBER 



IF BREAK VECTORED US HERE 



INPUT PATCH ENTERED FROM $B03D 



ALINK17 LDD 
LBEQ 
PSHS 
LDA 
STA 
PULS 
LBRA 



H.ONBRK 

LAE11 

B,A 

#$01 

H.ERRBRK 

A,B 

LE449 



* LPOKE 
LPOKE 



JSR 

LBRN 

BSR 

CMPB 

LBHI 

PSHS 

JSR 

JSR 

TFR 

PULS 

CMPB 

LBHI 

ORCC 

LBSR 

STA 

LBSR 

ANDCC #$AF 

RTS 



LB141 

RAMLINK 

LE58E 

SBLOCK7.7 

ILLFUNC 

X,B 

SYNCOMMA 

EVALEXPB 

B,A 

B,X 

#BLOCK7.7 

ILLFUNC 

#$50 

SELBLOK0 

,X 

SETMMU 



GET THE ON ERROR SOURCE LINE NUMBER 

SAVE THE SOURCE LINE NUMBER AS THE CURRENT LINE NUMBER 

UNDEFINED LINE NUMBER ERROR 

JUMP TO THE ERROR SERVICING ROUTINE ($AC49) 



GET THE ON BRK SOURCE LINE NUMBER 

BRANCH IF ON BRK NOT INITIALIZED ($AE11) 

SAVE THE ON BRK SOURCE ADDRESS 

BREAK FLAG 

SET THE ERROR7BREAK FLAG TO BREAK 

RESTORE SOURCE ADDRESS - INEFFICIENT, LDD H.ONBRK IS BETTER 



EVALUATE A NUMERIC EXPRESSION 

ROM HOOK 

CONVERT FPA0 INTO AN EXTENDED ADDRESS 

HIGHEST POSSIBLE BLOCK NUMBER 

ILLEGAL FUNCTION CALL ERROR IF BLOCK NUMBER TOO BIG 

SAVE REGISTERS 

DO A SYNTAX CHECK FOR A COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

SAVE THE BLOCK NUMBER IN ACCA 

RESTORE REGISTERS 

COMPARE TO HIGHEST POSSIBLE BLOCK NUMBER 

ILLEGAL FUNCTION CALL ERROR 

DISABLE INTERRUPTS 

PUT THE INTERPRETED BLOCK INTO LOGICAL BLOCK 

STORE THE VALUE BEING POKEd 

RESTORE THE MMU REGISTERS TO WHAT BASIC EXPECTS 

ENABLE THE IRQ AND FIRQ INTERRUPTS 
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1153 










1154 


E573 


8D 


19 




1155 


E575 


10 


21 


1A 87 


1156 


E579 


CI 


3F 




1157 


E57B 


10 


22 


CE CB 


1158 


E57F 


1A 


50 




1159 


E581 


17 


FB 


ID 


1160 


E584 


E6 


84 




1161 


E586 


17 


FB 


0E 


1162 


E589 


1C 


AF 




1163 


E58B 


7E 


B4 


F3 


1164 










1165 










1166 










1167 










1168 










1169 


E58E 


34 


02 




1170 


E590 


96 


4F 




1171 


E592 


81 


93 




1172 


E594 


23 


04 




1173 


E596 


C6 


40 




1174 


E598 


20 


15 




1175 


E59A 


BD 


BC 


C8 


1176 


E59D 


DC 


52 




1177 


E59F 


84 


IF 




1178 


E5A1 


IF 


01 




1179 


E5A3 


DC 


51 




1180 


E5A5 


47 






1181 


E5A6 


56 






1182 


E5A7 


47 






1183 


E5A8 


56 






1184 


E5A9 


47 






1185 


E5AA 


56 






1186 


E5AB 


47 






1187 


E5AC 


56 






1188 


E5AD 


47 






1189 


E5AE 


56 






1190 


E5AF 


35 


82 




1191 










1192 










1193 


E5B1 


BD 


B3 


ED 


1194 


E5B4 


10 


21 


1A 48 


1195 


E5B8 


CI 


03 




1196 


E5BA 


10 


22 


CE 8C 


1197 


E5BE 


IF 


98 




1198 


E5C0 


5F 






1199 


E5C1 


53 






1200 


E5C2 


8E 


FF 


00 


1201 


E5C5 


E7 


02 




1202 


E5C7 


E6 


84 




1203 


E5C9 


CI 


0F 




1204 


E5CB 


27 


ID 




1205 


E5CD 


30 


8D 


00 04 


1206 


E5D1 


48 






1207 


E5D2 


48 






1208 


E5D3 


6E 


86 




1209 










1210 










1211 


E5D5 


C4 


01 




1212 


E5D7 


20 


0A 




1213 










1214 










1215 


E5D9 


C4 


04 




1216 


E5DB 


20 


06 




1217 










1218 










1219 


E5DD 


C4 


02 




1220 


E5DF 


20 


02 




1221 










1222 










1223 


E5E1 


C4 


08 




1224 


E5E3 


26 


05 




1225 


E5E5 


CC 


00 


01 


1226 


E5E8 


20 


02 




1227 


E5EA 


4F 






1228 


E5EB 


5F 






1229 


E5EC 


BD 


B4 


F4 


1230 


E5EF 


39 






1231 










1232 










1233 


E5F0 


81 


F7 




1234 


E5F2 


10 


21 


1A 0A 


1235 


E5F6 


26 


08 




1236 


E5F8 


9D 


9F 




1237 










1238 


E5FA 


30 


8D 


00 66 


1239 


E5FE 


20 


34 




1240 


E600 


81 


F6 




1241 


E602 


26 


08 




1242 


E604 


9D 


9F 




1243 










1244 


E606 


30 


8D 


00 4A 


1245 


E60A 


20 


28 




1246 


E60C 


BD 


E7 


B2 


1247 


E60F 


8E 


FF 


B0 


1248 


E612 


10 


8E 


E6 78 



* LPEEK 




LPEEK BSR 


LE58E 


LBRN 


RAMLINK 


CMPB 


SBLOCK7.7 


LBHI 


ILLFUNC 


ORCC 


#$50 


LBSR 


SELBLOK0 


LDB 


,x 


LBSR 


SETMMU 


ANDCC 


#$AF 


JMP 


LB4F3 



CONVERT FPA0 INTO A 'LONG' ADDRESS 
THE 'LONG' ADDRESS WIL BE RETURNED 
WILL BE IN THE X REGISTER, AND THE 
BLOCK NUMBER, WILL BE IN ACCB 



LE58E 


PSHS 


A 




LDA 


FP0EXP 




CMPA 


#$93 




BLS 


LE59A 




LDB 


#BLOCK7.7+l 




BRA 


LE5AF 


LE59A 


JSR 


LBCC8 




LDD 


FPA0+2 




ANDA 


#$1F 




TFR 


D,X 




LDD 


FPA0+1 




ASRA 






RORB 






ASRA 






RORB 






ASRA 






RORB 






ASRA 






RORB 






ASRA 






RORB 




LE5AF 


PULS 


A, PC 


* BUTTON 


1 




BUTTON 


JSR 


INTCNV 




LBRN 


RAMLINK 




CMPB 


#$03 




LBHI 


ILLFUNC 




TFR 


B,A 




CLRB 






COMB 






LDX 


#PIA0 




STB 


$02, X 




LDB 


,x 




CMPB 


#$0F 




BEQ 


LE5EA 




LEAX 


LE5D5.PC 




ALSA 






ALSA 






JMP 


A,X 



CONVERT FPA0 INTO AN EXTENDED ADDRESS 

RAM HOOK 

COMPARE TO HIGHEST LEGAL BLOCK NUMBER 

ILLEGAL FUNCTINO CALL ERROR IF BLOCK NUMBER TOO BIG 

DISABLE INTERRUPTS 

GET THE INTERPRETED BLOCK NUMBER INTO CPU BLOCK 

GET THE VALUE BEING LPEEKed 

RESTORE THE MMU REGISTERS TO WHAT BASIC EXPECTS 

ENABLE THE IRO AND FIRO INTERRUPTS 

CONVERT THE VALUE IN ACCB INTO A FLOATING POINT NUMBER 



IN TWO PIECES: THE LOW ORDER 13 BITS 
HIGH ORDER 6 BITS, WHICH ARE THE 



GET THE EXPONENT OF FPA0 

EXPONENT OF 512K-1 

BRANCH IF <= 512K-1 

MAKE IT ONE BLOCK BIGGER THAN THE BIGGEST ALLOWABLE 

EXIT ROUTINE 

DE-NORMALIZE FPA0 

GET THE TWO LEAST SIGNIFICANT BITS OF FPA0 

MASK OFF THE 3 HIGH ORDER BITS 

SAVE THE 13 LOW ORDER BITS IN X REGISTER 

GET THE SECOND AND THIRD BYTES IF FPA0 



NOT NECESSARY WITH MAXIMUM OF 512K RAM 



NOT NECESSARY WITH MAXIMUM OF 512K RAM 

SHIFT ACCD RIGHT 5 TIMES - THE BLOCK NUMBER IS IN ACCB 



CONVERT FPA0 INTO AN INTEGER IN ACCB 

RAM HOOK 

ONLY BUTTON NUMBERS 0-3 ALLOWD 

ILLEGAL FUNCTION ERROR 

SAVE BUTTON NUMBER IN ACCA 

NOW ACCB = $FF 

POINT TO THE KEYBOARD STROBE PIO 

SET THE COLUMN STROBE TO $FF - ALLOW ONLY BUTTONS TO BE CHECKED 

READ THE KEYBOARD ROWS 

THE BUTTONS ARE ON THE BOTTOM FOUR ROWS 

BRANCH IF NO BUTTONS DOWN 

POINT TO THE BUTTON MASKING ROUTINES 

MULT ACCA BY FOUR - FOUR BYTES/EACH MASKING ROUTINE 
JUMP TO THE APPROPRIATE MASKING ROUTINE 



* MASK OFF ALL BUT BUTTON 1, RIGHT JOYSTICK 
LE5D5 ANDB #$01 
BRA LE5E3 



* MASK OFF ALL BUT BUTTON 1, 
LE5D9 ANDB #$04 

BRA LE5E3 

* MASK OFF ALL BUT BUTTON 2, 

ANDB #$02 
BRA LE5E3 



* MASK 


OFF ALL 


BUT BUTTON 2 




ANDB 


#$08 


LE5E3 


BNE 


LE5EA 




LDD 


#1 




BRA 


LE5EC 


LE5EA 


CLRA 
CLRB 




LE5EC 


JSR 
RTS 


GIVABF 


* PALETTE 




PALETTE CMPA 


#$F7 




LBRN 


RAMLINK 




BNE 


LE600 




JSR 


GETNCH 


* RGB 


ENTRY POINT - SET THE 


LE5FA 


LEAX 


IM.RGB.PC 




BRA 


LE634 


LE600 


CMPA 


#$F6 




BNE 


LE60C 




JSR 


GETNCH 


* CMP 


ENTRY POINT - SET THE 


LE606 


LEAX 


IM.CMP.PC 




BRA 


LE634 


LE60C 


JSR 


LE7B2 




LDX 


#PALETREG 




LDY 


#IM.PALET 



LEFT JOYSTICK 



RIGHT JOYSTICK 



LEFT JOYSTICK 



BRANCH IF MASKED BUTTON NOT DOWN 

IF BUTTON DOWN, RETURN A VALUE OF ONE 



RETURN A ZERO IF BUTTON IS NOT DOWN 

CONVERT ACCD INTO A FLOATING POINT NUMBER IN FPA0 



•RGB' TOKEN? 

RAM HOOK 

NOT THE 'RGB' TOKEN, CHECK FOR 'CMP' 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 
PALETTE REGISTERS FOR DEFAULT RGB VALUES 

POINT TO THE DEFAULT RGB PALETTE COLORS 

PUT THE DATA POINTED TO BY X INTO THE PALETTE REGISTERS 

'CMP' TOKEN? 

NO, GET A REGISTER NUMBER AND COLOR 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 
PALETTE REGISTERS FOR DEFAULT CMP VALUES 

POINT TO THE DEFAULT CMP PALETTE COLORS 

PUT THE DATA POINTED TO BY X INTO THE PALETTE REGISTERS 

EVALUATE TWO EXPRESSIONS, NORMALLY A HORIZONTAL S VERTICAL COORDINATE 

POINT TO THE GIME CHIP'S PALETTE REGISTERS 

POINT TO THE RAM IMAGE OF THE PALETTE REGISTERS 
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1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 



E616 96 2C 

E618 81 10 

E61A 10 24 CE 2C 

E61E 30 86 

E620 31 A6 

E622 D6 C0 

E624 CI 3F 

E626 23 02 

E628 C6 3F 

E62A 1A 50 

E62C 13 

E62D E7 84 

E62F E7 A4 

E631 1C AF 

E633 39 

E634 34 10 

E636 10 8E E6 78 

E63A 8D 0C 

E63C 35 10 

E63E 10 8E 

E642 1A 50 

E644 13 

E645 8D 01 

E647 39 

E648 C6 0F 

E64A A6 80 

E64C A7 A0 

E64E 5A 

E64F 26 F9 

E651 1C AF 

E653 39 



* PALETTE COLORS FOR A COMPOSITE MONITOR 
E654 12 24 0B 07 3F IF IM.CMP FCB 18,36,11,7,63,31 
E65A 09 26 00 12 00 3F FCB 9,38,0,18,0,63 

E660 00 12 00 26 FCB 0,18,0,38 



FF 





LDA 


BINVAL+1 




CMPA 


#16 




LBCC 


ILLFUNC 




LEAX 


A,X 




LEAY 


A,V 




LDB 


VERBEG+1 




CMPB 


#63 




BLS 


LE62A 




LDB 


#63 


LE62A 


ORCC 

SYNC 


#$50 




STB 


,x 




STB 


,Y 




ANDCC 


#$AF 




RTS 




LE634 


PSHS 


X 




LDY 


SIM.PALET 




BSR 


LE648 




PULS 


X 




LDY 


#PALETREG 




ORCC 


#$50 




SYNC 






BSR 


LE648 




RTS 




LE648 


LDB 


#16-1 


LE64A 


LDA 


,x+ 




STA 


,y+ 




DECB 






BNE 


LE64A 




ANDCC 


#$AF 




RTS 





GET THE NUMBER OF THE PALETTE REGISTER TO CHANGE 

16 PALETTE REGISTERS MAXIMUM 

ILLEGAL FUNCTION CALLERROR IF PALETTE REGISTER > 15 

POINT TO THE SELECTED PALETTE REGISTER 

POINT TO THE SELECTED PALETTE REGISTER RAM IMAGE 

GET THE NEW COLOR FOR THE PALETTE REGISTER 

MAXIMUM OF 64 COLORS (ZERO IS A LEGIT COLOR) 

BRANCH IF LEGITIMATE COLOR SELECTED 

USE COLOR 63 IF BAD COLOR NUMBER SELECTED 

DISABLE INTERRUPTS 

WAIT FOR AN INTERRUPT TO CHANGE PALETTE REGISTERS - THIS WILL 

PREVENT THE SCREEN FROM FLASHING WHEN THE CHANGE IS MADE. 

SAVE THE NEW COLOR IN THE PALETTE REGISTER 

SAVE THE NEW COLOR IN THE PALETTE REGISTER RAM IMAGE 

ENABLE IRO, FIRO INTERRUPTS 



SAVE THE SOURCE REGISTER POINTER 

POINT TO THE PALETTE REGISTER RAM IMAGE 

COPY THE SOURCE PALETTE REGISTER TO THE RAM IMAGE 

RESTORE THE SOURCE REGISTER POINTER 

POINT TO THE PALETTE REGISTERS 

DIABLE INTERRUPTS 

COPY IMMEDIATELY AFTER AN INTERRUPT TO PREVENT SPARKING 

COPY THE SOURCE REGISTER DATE INTO THE PALETTE REGISTERS 



NUMBER OF BYTES TO COPY - BUG 

GET A BYTE 

MOVE IT 

BUMP COUNTER DOWN ONE 

LOOP UNTIL DONE 

ENABLE IRO, FIRO INTERRUPTS 



SHOULD BE 16 



E664 12 36 09 24 3F IB 

E66A 2D 26 00 12 00 3F 

E670 00 12 00 26 

E674 20 84 



* PALETTE COLORS FOR AN RGB MONITOR 
IM.RGB FCB 18,54,9,36,63,27 

FCB 45,38,0,18,0,63 

FCB 0,18,0,38 



RGB 



E676 20 8E 



CMP 



BRA 



BRA 



LE5FA 



LE606 



* MASTER IMAGES USED TO PROGRAM THE CUSTOM CHIP'S PALETTE REGISTERS 
E678 12 24 0B 07 3F IF IM.PALET FCB 18,36,11,7,63,31 
E67E 09 26 00 12 00 3F FCB 9,38,0,18,0,63 

E684 00 12 00 26 FCB 0,18,0,38 



E688 
E68A 
E68E 
E690 
E691 
E693 
E696 
E698 
E69C 
E69E 
E6A0 
E6A2 
E6A5 
E6A7 
E6AA 
E6AC 
E6AE 
E6B0 
E6B2 
E6B4 
E6B7 
E6B9 
E6BC 
E6BE 
E6C1 
E6C3 
E6C6 
E6C8 



81 00 

10 21 19 72 

26 03 

5F 

20 09 

BD B7 0B 

CI 04 

10 22 CD AE 

D7 E6 

CI 00 

26 03 

7E E0 19 

D7 E6 

8E E6 CB 

C0 01 

A6 85 

97 B9 

CI 01 

2E 05 

CC 00 A0 

20 03 

CC 01 40 

DD C7 

CC 00 60 

DD C9 

F6 FE 0B 

8D 10 

7E E0 4D 



* HSCREEN 




HSCREEN 


CMPA 


#$00 




LBRN 


RAMLINK 




BNE 


LE693 




CLRB 






BRA 


LE69C 


LE693 


JSR 


EVALEXPB 




CMPB 


#$04 




LBHI 


ILLFUNC 


LE69C 


STB 


HRMODE 




CMPB 


#$00 




BNE 


LE6A5 




JMP 


SETTEXT 


LE6A5 


STB 


HRMODE 




LDX 


#LE6CB 




SUBB 


#$01 




LDA 


B,X 




STA 


HORBYT 




CMPB 


#$01 




BGT 


LE6B9 




LDD 


#160 




BRA 


LE6BC 


LE6B9 


LDD 


#320 


LE6BC 


STD 


HORDEF 




LDD 


#96 




STD 


VERDEF 




LDB 


H.BCOLOR 




BSR 


CLRHIRES 




JMP 


SETGRAPH 



CHECK FOR END OF LINE 

RAM HOOK 

BRANCH IF NOT END OF LINE 

IF END OF LINE, SET ARGUMENT TO ZERO 

SET THE HSCREEN MODE 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

ONLY 4 HSCREEN MODES ALLOWED 

ILLEGAL FUNCTION CALL ERROR 

SAVE THE HI-RES GRAPHICS MODE 

CHECK FOR MODE 

BRANCH IF NOT HSCREEN 

SETUP THE VIDEO MODE REGISTERS FOR COCO COMPATIBLE MODE 

SAVE THE HI-RES GRAPHICS MODE 

POINT TO THE TABLE OF NUMBER OF BYTES/HORIZONTAL ROW 

CONVERT THE HI-RES MODE FROM 1-4 TO 0-3 

GET THE NUMBER OF BYTES/HORIZONTAL ROW 

AND SAVE IT 

ONE OF THE FIRST TWO MODES? 

BRANCH IF NOT 

HORIZONTAL CENTER OF 320 COORDINATE SCREEN 

HORIZONTAL CENTER OF 640 COORDINATE SCREEN 

SAVE AS HORIZONTAL DEFAULT COORD 

VERTICAL CENTER COORDINATE 

SAVE AS VERTICAL DEFAULT 

GET THE BACKGROUND COLOR 

CLEAR THE HI-RES GRAPHICS SCREEN TO THE BACKGROUND COLOR 

GROGRAM THE VIDEO RESOLUTION MODE 



E6CB 50 A0 50 . 



E6CF 26 05 

E6D1 F6 FE 

E6D4 20 02 

E6D6 8D 36 



E6D8 0D E6 
E6DA 27 13 



* TABLE OF THE NUMBER OF BYTES PER HORIZONTAL ROW FOR EACH HSCREEN MODE 
LE6CB FCB 80,160,80,160 



* HCLS 

HCLS BNE LE6D6 

LDB H.BCOLOR 

BRA CLRHIRES 

LE6D6 BSR LE70E 



BRANCH IF NOT END OF LINE 

GET THE BACKGROUND COLOR 

CLEAR THE SCREEN TO THE BACKGROUND COLOR 

EVALUATE AN EXPRESSION, SYNTAX CHECK FOR NOT 



* CLEAR THE HI-RES GRAPHICS SCREEN TO THE COLOR IN ACCB 

CLRHIRES TST HRMODE CHECK THE HI-RES MODE 

BEQ LE6EF HR' ERROR IF IN THE 32 COLUMN MODE 
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1345 


E6DC 


8D 


64 




1346 


E6DE 


BD 


El 


19 


1347 










1348 


E6E1 


8E 


20 


00 


1349 


E6E4 


E7 


80 




1350 


E6E6 


8C 


A0 


00 


1351 


E6E9 


26 


F9 




1352 


E6EB 


BD 


E0 


FF 


1353 


E6EE 


39 






1354 


E6EF 


C6 


4C 




1355 


E6F1 


7E 


AC 


46 


1356 










1357 










1358 


E6F4 


81 


2C 




1359 


E6F6 


10 


21 


19 06 


1360 


E6FA 


27 


09 




1361 


E6FC 


8D 


10 




1362 


E6FE 


F7 


FE 


0A 


1363 


E701 


9D 


A5 




1364 


E703 


27 


08 




1365 


E705 


BD 


B2 


6D 


1366 


E708 


8D 


04 




1367 


E70A 


F7 


FE 


0B 


1368 


E70D 


39 






1369 










1370 


E70E 


BD 


B7 


0B 


1371 


E711 


CI 


10 




1372 


E713 


10 


24 


CD 33 


1373 


E717 


39 






1374 










1375 


E718 


BD 


E7 


31 


1376 


E71B 


9D 


A5 




1377 


E71D 


27 


10 




1378 


E71F 


81 


29 




1379 


E721 


27 


0C 




1380 


E723 


BD 


B2 


6D 
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27 
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F6 
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34 
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E6 
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01 
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8E 


E7 
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E4 
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E74D 
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E6 
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E74F 


80 


01 




1404 


E751 


8E 


E7 


5D 


1405 


E754 


A6 


86 




1406 


E756 


3D 






1407 


E757 


35 


90 




1408 










1409 










1410 


E759 


03 


0F 


01 03 
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1412 










1413 


E75D 


55 


11 


FF 55 


1414 










1415 










1416 


E761 


86 


01 




1417 


E763 


20 


05 




1418 










1419 










1420 


E765 


4F 






1421 


E766 


10 


21 


18 96 


1422 


E76A 


0D 


E6 




1423 


E76C 


27 


81 




1424 


E76E 


97 


C2 




1425 


E770 


BD 


B2 


6A 


1426 


E773 


BD 


E7 


AA 


1427 


E776 


0D 


C2 




1428 


E778 


26 


05 




1429 


E77A 


BD 


E7 


31 


1430 


E77D 


20 


03 




1431 


E77F 


BD 


E7 


18 


1432 


E782 


BD 


B2 


67 


1433 


E785 


BD 


E7 


DA 


1434 


E788 


BD 


El 


19 


1435 


E78B 


BD 


E7 


92 


1436 


E78E 


BD 


E0 


FF 


1437 


E791 


39 






1438 










1439 










1440 











BSR PIXELFIL 

JSR SELTASK1 

FILL MEMORY FROM HRESSCRN TO 





LDX 


#HRESSCRN 


LE6E4 


STB 


,x+ 




CMPX 


#BASIC 




BNE 


LE6E4 




JSR 


SELTASK0 




RTS 




LE6EF 


LDB 


#38*2 




JMP 


LAC46 


* HCOLOR 






HCOLOR 


CMPA 


#' ,' 




LBRN 


RAMLINK 




BEQ 


LE705 




BSR 


LE70E 




STB 


H.FCOLOR 




JSR 


GETCCH 




BEQ 


LE70D 


LE705 


JSR 


SYNCOMMA 




BSR 


LE70E 




STB 


H.BCOLOR 


LE70D 


RTS 





LE70E JSR EVALEXPB 

LE711 CMPB #16 

LBCC ILLFUNC 

RTS 



LE718 



JSR 
JSR 
BEQ 
CMPA 

BEQ 

JSR 

CMPA 

BEQ 

JSR 

BSR 

JMP 

LDB 
TST 
BNE 
LDB 
STB 
BSR 
STB 
RTS 



LE731 

GETCCH 

LE72F 

#')' 

LE72F 

SYNCOMMA 

#' ,' 

LE72F 

LE70E 

LE73B 

GETCCH 

H.FCOLOR 

SETFLG 

LE73B 

H.BCOLOR 

WCOLOR 

PIXELFIL 

ALLCOL 



FILL ACCB WITH THE SELECTED COLOR 

SELECT TASK REGISTER 1 AS THE ACTIVE TASK REGISTER 
$A000 WITH ACCB; THIS IS THE HI-RES GRAPHICS SCREEN 

POINT TO START OF HI-RES GRAPHICS SCREEN 

•CLEAR' A BYTE 

CHECK FOR END OF THE HI-RES GRAPHICS SCREEN 

KEEP 'CLEARING' UNTIL DONE 

SET TASK REGISTER AS THE ACTIVE TASK REGISTER 

•HR' ERROR 

JUMP TO THE ERROR HANDLER 



CHECK FOR COMMA, FIRST ARGUMENT NOT GIVEN 

RAM HOOK 

BRANCH IF FIRST ARGUMENT NOT GIVEN 

EVALUATE EXPRESSION, SYNTAX CHECK FOR EXPRESSION 

SAVE THE NEW FORGROUND COLOR 

GET BASIC'S CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE, NO BACKGROUND COLOR GIVEN 

DO A SYNTAX CHECK FOR A COMMA 

EVALUATE EXPRESSION, SYNTAX CHECK FOR EXPRESSION 

SAVE THE NEW BACKGROUND COLOR 



EVALUATE EXPRESSION, RETURN VALUE 
MAXIMUM OF 16 DIFFERENT COLORS 
ILLEGAL FUNCTION CALL ERROR 



SET THE WORKING COLOR AND ALL PIXEL BYTES TO DEFAULT VALUES 

GET BASIC'S CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR ')' 

EXIT IF ')' 

DO A SYNTAX CHECK FOR A COMMA 

SYNTAX CHECK FOR A COMMA 

USE DEFAULT COLORS IF TWO COMMAS 

EVALUATE COLOR ARGUMENT 

SET THE WORKING AND ALL COLOR BYTES TO THE COLOR ARGUMENT 

GET BASIC'S CURRENT INPUT CHARACTER AND RETURN 

GET THE FOREGOUND COLOR 

TEST THE HSET/HRESET FLAG 

BRANCH IF HSET 

GET THE BACKGROUND COLOR IF HRESET 

SAVE THE NEW WORKING COLOR 

FILL ALL PIXELS IN A BYTE WITH THE WORKING COLOR 

SAVE THE FILLED WITH WORKING COLOR BYTE 



FILL ACCB WITH PIXELS OF THE COLOR CONTAINED IN ACCB 



PIXELFIL PSHS 
LDA 

SUBA 
LDX 

ANDB 

LDA 

SUBA 

LDX 

LDA 

MUL 

PULS 



X 

HRMODE 

#$01 

#LE759 

A,X 

HRMODE 

#$01 

#LE75D 

A,X 

X,PC 



GET THE HI-RES GRAPHICS MODE 

CONVERT 1-4 TO 0-3 

POINT TO THE TABLE OF PIXEL MASKS 

KEEP ONLY ONE PIXEL'S WORTH OF COLOR INFORMATION 

* BOTH OF THESE INSTRUCTIONS 

* ARE SUPERFLUOUS 

POINT TO THE TABLE OF MULTIPLIERS 

GET THE APPROPRIATE MULTIPLIER 

NOW THE COLOR INFORMATION IS IN EVERY PIXEL IN THE BYTE 



* PIXEL MASKS FOR THE HI-RES GRAPHICS MODES 
LE759 FCB $03 ,$0F,$01 ,$03 



* MULTIPLIERS TO SPREAD HI-RES PIXELS THROUGH AN ENTIRE BYTE 
LE75D FCB $55 ,$11 ,$FF,$55 



* HSET 






HSET 


LDA 


#$01 




BRA 


LE76A 


* HRESET 






HRESET 


CLRA 






LBRN 


RAMLINK 


LE76A 


TST 


HRMODE 




BEQ 


LE6EF 




STA 


SETFLG 




JSR 


LB26A 




JSR 


LE7AA 




TST 


SETFLG 




BNE 


LE77F 




JSR 


LE731 




BRA 


LE782 


LE77F 


JSR 


LE718 


LE782 


JSR 


LB267 




JSR 


HCALPOS 


LE788 


JSR 


SELTASK1 




JSR 


LE792 




JSR 


SELTASK0 




RTS 





HRESET FLAG 

IS THE HI-RES GRAPHICS MODE ENABLED? 

HR' ERROR IF HI-RES MODE NOT ENABLED 

SAVE THE HSET/HRESET FLAG 

SYNTAX CHECK FOR '(' 

EVALUATE TWO EXPRESSIONS 

CHECK THE HSER/HRESET FLAG 

BRANCH IF HSET 

SET THE WORKING COLOR AND ALL PIXEL BYTE 

GET THE HSET COLOR 

SYNTAX CHECK FOR ')' 

LOAD X WITH PIXEL BYTE ADDRESS; ACCA WITH PIXEL MASK 

MAKE TASK REGISTER 1 THE ACTIVE TASK REGISTER 

SET OR RESET A PIXEL 

RESET TASK REGISTER TO BE THE ACTIVE TASK REGISTER 



HSET/HRESET A PIXEL; ENTER W/X POINTING TO THE 
ACCA POINTING TO THE MASK FOR THE PROPER PIXEL 



;yte containing the pixel and 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 
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34 


44 




1515 
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D6 


B9 




1516 


E803 


96 


C0 




1517 


E805 


3D 






1518 


E806 


C3 


20 


00 


1519 


E809 


IF 


01 




1520 


E80B 


DC 


BD 




1521 


E80D 


44 






1522 


E80E 


56 






1523 


E80F 


44 






1524 


E810 


56 






1525 
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44 






1526 
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56 






1527 


E813 


30 


8B 
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96 


BE 
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84 


07 
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E819 


CE 


E7 
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E81C 


A6 


C6 




1532 


E81E 


35 


C4 




1533 










1534 


E820 


34 


44 




1535 


E822 


D6 


B9 




1536 


E824 


96 


C0 





LE792 


LDB 


,x 




PSHS 


B 




TFR 


A,B 




COMA 






ANDA 


,x 




ANDB 


ALLCOL 




PSHS 


B 




ORA 


,s+ 




STA 


,x 




SUBA 


,s+ 




ORA 


CHGFLG 




STA 


CHGFLG 




RTS 




LE7AA 


JSR 


LE7B2 


LE7AD 


LDU 


#HORBEG 


* THE 


'NORMALIZATION' 



($9320) 

* IN ENHANCED BASIC SO IT WAS 
LE7B0 RTS 
RTS 



GET THE BYTE WHICH CONTAINS THE PIXEL 

AND SAVE IT ON THE STACK 

COPY THE MASK TO ACCB 

INVERT THE MASK 

ERASE OLD PIXEL DATA 

FORCE THE PIXEL MASK TO BE THE CORRECT COLOR 

AND SAVE THE 'COLORED' DATA ON THE STACK 

REPLACE THE 'ERASED' PIXEL WITH THE NEW COLOR DATA 

AND SAVE IT IN THE SCREEN MEMORY 

ACCA=0 IF OLD AND NEW PIXELS WERE IDENTICAL 

SET CHGFLG <> IF THE PIXEL WAS CHANGED 

SAVE THE 'CHANGED' STATUS 

EVALUATE TWO EXPRESSIONS 

POINT U TO EVALUATED COORDINATES' STORAGE LOCATIONS 
ROUTINE FROM EXTENDED BASIC WENT HERE - IT IS NOT NEEDED 
REPLACED WITH AN RTS. 

WASTED BYTE 



EVALUATE TWO EXPRESSIONS ■ 
PERFORM COORDINATE SYNTAX 



NORMALLY A HORIZONTAL AND VERTICAL COORDINATE 
RANGE CHECKS ON THE EXPRESSIONS 

EVALUATE TWO EXPRESSIONS; RETURN 1ST VALUE IN BINVAL, SECOND IN ACCB 

POINT TO THE COORDINATE STORAGE VARIABLES 

CHECK FOR MAXIMUM VERTICAL COORDINATE 

BRANCH IF WITHIN RANGE 

FORCE TO MAXIMUM VALUE IF OUT OF RANGE 

CLEAR THE MOST SIGNIFICANT BYTE OF ACCD 

SAVE THE VERTICAL COORDINATE 

GET THE HI-RES GRAPHICS MODE 

IS MAXIMUM PIXEL WIDTH=320? 

NO 

LOAD ACCD WITH MAXIMUM HORIZONTAL COORDINATE FORE 320 PIXEL WIDE 

DO THE HORIZONTAL RANGE CHECK 

LOAD ACCD WITH MAXIMUM HORIZONTAL COORDINATE FORE 640 PIXEL WIDE 

IS THE HORIZONTAL COORDINATE > MAXIMUM VALUE? 

YES, USE THE MAXIMUM HORIZONTAL COORDINATE 

GET THE NEW HORIZONTAL COORDINATE 

SAVE THE HORIZONTAL COORDINATE 



* THIS ROUTINE WILL CONVERT THE X,Y COORDINATES OF A PIXEL INTO THE SCREEN ADDRESS (X REG) AND 

* PIXEL OFFSET (ACCA) OF THE BYTE ON THE SCREEN CONTAINING THE PIXEL. 

HCALPOS BSR LE7E6 POINT U TO THE HCALPOS SUBROUTINE FOR THE CURRENT HRMODE 

JMP ,U EXECUTE THE HCALPOS SUBROUTINE 



LE7B2 


JSR 


LB734 




LDY 


#HORBEG 


LE7B9 


CMPB 


#192 




BCS 


LE7BF 




LDB 


#192-1 


LE7BF 


CLRA 






STD 


$02, Y 




LDA 


HRMODE 




CMPA 


#$02 




BGT 


LE7CD 




LDD 


#320-1 




BRA 


LE7D0 


LE7CD 


LDD 


#640-1 


LE7D0 


CMPD 


BINVAL 




BCS 


LE7D7 




LDD 


BINVAL 


LE7D7 


STD 
RTS 


,Y 



CALTABLE 
ALTABLE FDB 
FDB 



G2BITBIX,G4BITPIX,G1BITPIX 
G2BITBIX 



POINT U TO THE CALPOS ADDRESS TABLE 

GET THE HI-RS GRAPHICS MODE 

(DECA WOULD DO) CONVERT FROM 1-4 TO 0-3 

X2 BYTES PER ADDRESS 

GET THE APPROPRIATE CALPOS ADDRESS FROM THE TABLE 



POINT U TO THE PROPER CALPOS SUBROUTINE 
E7E6 LDU #CALTABLE 
LDA HRMODE 
SUBA #$01 
ALSA 

LDU A,U 
RTS 

TABLE OF 1 BIT PIXEL MASKS 
IX1MASK FCB $80, $40, $20, $10, $08, $04 
FCB $02, $01 

TABLE OF 2 BIT PIXEL MASKS 
IX2MASK FCB $C0,$30,$0C,$03 

TABLE OF 4 BIT PIXEL MASKS 
IX4MASK FCB $F0,$0F 



CONVERT HORIZONTAL, VERTICAL COORDINATES INTO THE ADDRESS (X) FOR THE BYTE WHICH CONTAINS THE DESIRED 
PIXEL AND A MASK (ACCA) WHICH HAS ONLY THOSE BITS WHICH CORRESPOND TO THE DESIRED PIXEL 

SAVE REGISTERS 

GET THE NUMBER OF BYTES PER HORIZONTAL ROW 

GET THE VERTICAL COORDINATE 

NOW ACCD CONTAINS THE ROW OFFSET IN BYTES FROM THE TOP OF SCREEN 

ADD THE ROW OFFSET TO THE START OF THE SCREEN 

X CONTAINS THE ADDRESS OF THE START OF THE ROW CONTAINING A PIXEL 

GET THE HORIZONTAL COORDINATE 



* DIVIDE HORIZONTAL COORDINATE BY EIGHT - THERE ARE 8 PIXELS PER BYTE 

* ACCD CONTAINS THE COLUMN OFFSET TO THE PIXEL IN BYTES 

ADD THE COLUMN OFFSET - X POINTS TO THE BYTE CONTAINING THE PIXEL 
GET THE LEAST SIGNIFICANT BYTE OF THE HORIZONTAL COORDINATE 
KEEP BITS 0-2 WHICH ARE THE PIXEL POSITION IN THE BYTE 
POINT TO THE TABLE OF TWO COLOR PIXEL MASKS 
GET THE CORRECT PIXEL MASK 
RESTORE THE REGISTERS 



G1BITPIX PSHS 


U,B 


LDB 


HORBYT 


LDA 


VERBEG+1 


MUL 




ADDD 


#HRESSCRN 


TFR 


D,X 


LDD 


HORBEG 


LSRA 




RORB 




LSRA 




RORB 




LSRA 




RORB 




LEAX 


D,X 


LDA 


HORBEG+1 


ANDA 


#$07 


LDU 


#PIX1MASK 


LDA 


A,U 


PULS 


B,U,PC 


G2BITBIX PSHS 


U,B 


LDB 


HORBYT 


LDA 


VERBEG+1 



SAVE REGISTERS 

GET THE NUMBER OF BYTES7ROW 

GET THE VERTICAL COORDINATE 
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* HPOINT 
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* HLINE 
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VERBEG 
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NOW ACCD CONTAINS THE ROW OFFSET IN BYTES FROM THE TOP OF SCREEN 
ADD THE ROW OFFSET TO THE START OF THE SCREEN 

X CONTAINS THE ADDRESS OF THE START OF THE ROW CONTAINING A PIXEL 
GET THE HORIZONTAL COORDINATE 



* DIVIDE HORIZONTAL COORDINATE BY FOUR - THERE ARE 4 PIXELS PER BYTE 

* ACCD CONTAINS THE COLUMN OFFSET TO THE PIXEL IN BYTES 

ADD THE COLUMN OFFSET - X POINTS TO THE BYTE CONTAINING THE PIXEL 
GET THE LEAST SIGNIFICANT BYTE OF THE HORIZONTAL COORDINATE 
KEEP BITS 0,1 WHICH ARE THE PIXEL POSITION IN THE BYTE 
POINT TO THE TABLE OF FOUR COLOR PIXEL MASKS 
GET THE CORRECT PIXEL MASK 
RESTORE THE REGISTERS 

SAVE REGISTERS 

GET THE NUMBER OF BYTES/ROW 

GET THE VERTICAL COORDINATE 

NOW ACCD CONTAINS THE ROW OFFSET IN BYTES FROM THE TOP OF SCREEN 

ADD THE ROW OFFSET TO THE START OF THE SCREEN 

X CONTAINS THE ADDRESS OF THE START OF THE ROW CONTAINING A PIXEL 

GET THE HORIZONTAL COORDINATE 

* DIVIDE HORIZONTAL COORDINATE BY TWO - THERE ARE 2 PIXELS PER BYTE 

* ACCD CONTAINS THE COLUMN OFFSET TO THE PIXEL IN BYTES 

ADD THE COLUMN OFFSET - X POINTS TO THE BYTE CONTAINING THE PIXEL 
GET THE LEAST SIGNIFICANT BYTE OF THE HORIZONTAL COORDINATE 
KEEP BITS WHICH IS THE PIXEL POSITION IN THE BYTE 
POINT TO THE TABLE OF 16 COLOR PIXEL MASKS 
GET THE CORRECT PIXEL MASK 
RESTORE THE REGISTERS 



CHECK FOR HI-RES GRAPHICS MODE 

'HR' ERROR IF NOT GRAPHICS 

SYNTAX CHECK FOR '(' 

EVALUATE TWO EXPRESSIONS (X,Y COORDS) 

SYNTAX CHECK FOR ')' 

SELECT TASK REGSTER 1 

POINT X TO PIXEL, ACCA CONTAINS MASK 

PUT MASK IN ACCB 

MASK OFF ALL BUT DESIRED PIXEL 

SHIFT MASK TO THE RIGHT 

STOP SHIFTING IF DATA IS RIGHT JUSTIFIED 

SHIFT PIXEL TO THE RIGHT 

KEEP SHIFTING UNTIL DATA IS RIGHT JUSTIFIED 

CONVERT ACCB INTO A FLOATING POINT NUMBER 

SELECT TASK REGISTER 



CHECK HI-RES GRAPHICS MODE 

•HR' ERROR IF NOT GRAPHICS 

RAM HOOK 

CHECK FOR '(' 

GO LOOK FOR START AND END POINTS 

CHECK FOR MINUS SIGN TOKEN 

BRANCH IF NO STARTING POINTS GIVEN 

CHECK FOR '6' SIGN 

GO DO A SYNTAX CHECK 

GET STARTING AND ENDING COORDINATES 

GET ENDING HORIZONTAL COORDINATE 

PUT IN LAST USED HORIZONTAL END POINT 

GET ENDING VERTICAL COORDINATE 

PUT IN LAST USED VERTICAL END POINT 

DO A SYNTAX CHECK FOR A COMMA 

PRESET TOKEN? 

BRANCK IF YES 

PSET TOKEN? 

'SYNTAX' ERROR IF NOT PSET OR PRESET 

PSET FLAG 

OP CODE FOR LDA #; EFFECTIVELY SKIP NEXT INSTRUCTION 

PRESET FLAG 

SAVE PSET/PRESET FLAG 

GET NEXT CHARACTER FROM BASIC'S INPUT LINE 

NORMALIZE START/END COORDS 

GET PSET/PRESET FLAG 

SAVE IT 

SET ACTIVE COLOR BYTE 

GET BASIC'S CURRENT INPUT CHARACTER 

BRANCH IF NO BOX TO BE DRAWN 

DO A SYNTAX CHECK FOR A COMMA 

DRAW A BOX? 

GO DO A SYNTAX CHECK FOR A 'B' 

FOUND A 'B' AND SOMETHING FOLLOWS 

DRAW A HORIZONTAL LINE 

DRAW A VERTICAL LINE 

GET HORIZONTAL START COORD 

SAVE IT ON THE STACK 

GET HORIZONTAL END COORDINATE 

PUT IN HORIZONTAL START COORDINATE 

DRAW A VERTICAL LINE 

GET THE PREVIOUS HORIZONTAL START COORDINATE 

RESTORE IT 

GET VERTICAL END COORDINATE 

PUT INTO START COORD 

DRAW A HORIZONTAL LINE 
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LE8F2 
LE8F4 
* DRAW 
LE8F6 



LE905 
* DRAW 
LE906 



LDB 

JSR 

BRA 

LEAX 

STX 



#'F' 
LB26F 
LE8F6 
$-01, X 
VERBEG 



CHECK FOR FILL OPTION 

GO DO A SYNTAX CHECK FOR AN 'F' 

GO 'FILL' THE BOX 

MOVE VERTICAL COORD UP ONE 

SAVE THE NEW VERTICAL START COORDINATE 



A SERIES OF HORIZONTAL LINES FROM VERTICAL START TO VERTICAL END 

JSR LE906 DRAW A HORIZONTAL LINE 

VERBEG GET START VERTICAL COORD 

VEREND COMPARE TO END VERTICAL COORD 

LE905 RETURN IF EQUAL 

LE8F2 BRANCH IF START HORIZONTAL > END HORIZONTAL 

$01, X MOVE HORIZONTAL COORD DOWN ONE 

LE8F4 KEEP DRAWING LINES 



LDX 
CMPX 
BEQ 
BCC 
LEAX 
BRA 
RTS 
A HORIZONTAL LINE FROM HOREND TO HORBEG AT VERTICAL COORD VERBEG; 



COLOR IN ALLCOL 



LE92F 
* DRAW 
LE931 



LDX HORBEG 

PSHS X 

JSR LE9DB 

BCC LE913 

LDX HOREND 

STX HORBEG 

TFR D,Y 

LEAY $01, Y 

JSR HCALPOS 

PULS U 

STU HORBEG 

LBSR LEA16 

STA VD7 

JSR LE788 

LDA VD7 

JSR ,U 

LEAY $-01, Y 

BNE LE921 
RTS 

PULS A,B CLEAN UP STACK 

A VERTICAL LINE FROM VEREND TO VERBEG AT HORIZONTAL COORD HORBEG 

LDD VERBEG GET END VERTICAL COORDS 

PSHS B,A SAVE 'EM 

JSR LE9CD CALCULATE ABSOLUTE VALUE OF VEREND-VERBEG 

BCC LE93E BRANCH IF END COORD > START COORD 

LDX VEREND GET VERTICAL END COORDINATE 

STX VERBEG MAKE IT THE START COORD IF END COORD WAS RIGHT OF START 

TFR D,Y LENGTH OF LINE TO Y 

LEAY $01, Y SET BOTH START AND END COORDS 

JSR HCALPOS GET ABSOLUTE SCREEN ADDRESS IN X AND PIXEL MASK IN ACCA 

PULS U GET END COORDS 

STU VERBEG RESTORE THEM 

LBSR LEA21 POINT U TO ROUTINE TO MOVE DOWN ONE ROW 

BRA LE921 DRAW A VERTICAL LINE 



GET STARTING COORDINATES 

SAVE 'EM 

GET ABSOLUTE VALUE OF HOREND-HORBEG (HORIZONTAL COORD) 

BRANCH IF END > START 

GET END COORD 

MAKE IT THE START COORD 

SAVE DIFFERENCE IN Y 

ADD ONE TO DIFFERENCE - TURN ON STARTING AND ENDING COORDS 

GET ABSOLUTE SCREEN ADDRESS IN X AND PIXEL MASK IN ACCA 

GET START COORDS 

RESTORE THEM 

POINT U TO ROUTINE TO MOVE PIXEL POINTERS TO RIGHT 

SAVEL PIXEL MASK 

TURN ON PIXEL 

GET OLD PIXEL MASK 

MOVE TO NEXT ONE TO RIGHT 

DEC COUNTER 

LOOP IF NOT DONE 



DRAW A LINE FROM (HORBEG, VERBEG) TO (HOREND, 



LDY 
JSR 

BEQ 

BCC 

LDY 

PSHS 

LDU 

JSR 

BEQ 

BCC 

LDU 

CMPD 

PULS 

BCC 

EXG 

EXG 

PSHS 

PSHS 

LSRA 

RORB 

BCS 

CMPU 

BCS 

SUBD 

PSHS 



#LE9B8 

LE9CD 

LE906 

LE95D 

#LE9C6 

B,A 

#LE9B1 

LE9DB 

LE92F 

LE96C 

#LE9BF 

,S 

X 

LE977 

U,Y 

D,X 

U,B,A 

B,A 



LE988 

#LE9B9 

LE988 

#1 

X,B,A 



VEREND) 

POINT Y TO INCREMENT VERBEG (VERTICAL START COORD) 
CALCULATE VERTICAL DIFFERENCE (VEREND-VERBEG) 
DRAW A HORIZONTAL LINE IF DELTA V=0 
BRANCH IF VERTICAL END COORD > VERTICAL START COORD 
POINT Y TO DECR VERTICAL COORD 
SAVE DELTA V 

POINT U TO INCR HORIZONTAL COORD 
CALCULATE HORIZONTAL DIFFERENCE (HOREND-HORBEG) 
DRAW A VERTICAL LINE IF DELTA H=0 

BRANCH IF HORIZONTAL END COORD > HORIZONTAL START COORD 
POINT U TO DECR HORIZONTAL COORD 
COMPARE DELTA H TO DELTA V 
PUT DELTA V IN X 
BRANCH IF DELTA H > DELTA V 

SWAP CHANGE HORIZONTAL AND CHANGE VERTICAL ADDRESS 
EXCHANGE DELTA HORIZONTAL AND DELTA VERTICAL 



SAVE THE LARGER OF DELTA V, 
SAVE THE LARGER OF DELTA V, 



DELTA 
DELTA 



H AND 
H 

BIT 



NCR/DECR ADDRESS 



DIVIDE BY 2, SHIFT ACCD RIGHT ONE 

BRANCH IF ODD NUMBER 

SEE IF INCR OR DECR 

BRANCH IF INCR 

SUBTRACT ONE IF DECR 

SAVE SMALLEST DELTA (X) AND INITIAL MINOR COORDINATE 



INCREMENT COUNTER WHICH 
JSR LE7E6 



IS 1/2 OF LARGEST DELTA 



POINT U TO PROPER COORDINATE TO SCREEN CONVERSION ROUTINE 



* DRAW THE LINE HERE - AT THIS POINT THE STACK HAS THE DRAW DATA ON IT 
l,S=MINOR COORDINATE INCREMENT COUNTER 
2 3,S=ABS0LUTE VALUE OF THE SMALLEST DELTA COORDINATE 
4 5,S=ABSOLUTE VALUE OF THE LARGEST DELTA COORDINATE 
6 7,S=LARGEST COORDINATE COUNTER (HOW MANY TIMES THROUGH THE DRAW LOOP) 

INITIALLY SET TO ABSOLUTE VALUE OF LARGEST DELTA 
8 9,S=ADDRESS OF THE ROUTINE WHICH WILL INCREMENT OR DECREMENT THE LARGEST DELTA COORDINATE 

CONVERT (X.Y) COORDINATES TO ABSOLUTE SCREEN ADDRESS 

TURN ON A PIXEL 

GET DISTANCE COUNTER 

BRANCH IF LINE COMPLETELY DRAWN 

DECR ONE 

SAVE IT 

INCR/DECR COORDINATE WHICH HAS THE SMALLEST DELTA 

GET THE MINOR COORDINATE INCREMENT COUNTER 

ADD THE SMALLEST DIFFERENCE 



JSR 


,u 


JSR 


LE788 


LDX 


$06, S 


BEQ 


LE9AD 


LEAX 


$-01, X 


STX 


$06, S 


JSR 


[$08, S] 


LDD 


,s 


ADDD 


$02, S 
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3 1 u 

SUBD 


$04, S 


BCS 


LE98D 


STD 


,s 


JSR 


,V 


BRA 


LE98D 


PULS 


X 


PULS 


A,B,X,Y,U,PC 



SAVE NEW MINOR COORDINATE INCREMENT COUNTER 

SUBTACT OUT THE LARGEST DIFFERENCE 

BRANCH IF RESULT NOT > LARGEST DIFFERENCE 

IF >=, THEN STORE NEW MINOR COORDINATE INCREMENT 

INCR/DECR COORDINATE WHICH HAS THE SMALLEST DELTA 

KEEP GOING 

CLEAN UP STACK 

CLEAN UP STACK AND RETURN 



THESE ROUTINES ARE USED TO INCREMENT OR DECREMENT THE HORIZONTAL AND VERTICAL 
COORDINATES. THEY NEED TO BE KEPT IN THIS ORDER (INCR, INCR, DECR, DECR) 

GET HORIZONTAL COORD 
ADD ONE 
SAVE NEW HORIZONTAL COORD 

GET VERTICAL COORD 

ADD ONE 

SAVE NEW VERTICAL COORD 

GET HORIZONTAL COORD 

SUBTRACT ONE 

SAVE NEW HORIZONTAL COORD 

GET VERTICAL COORD 

SUBTRACT ONE 

SAVE NEW VERTICAL COORD 



GET VERTICAL ENDING ADDRESS 

SUBTRACT OUT VERTICAL BEGINNING ADDRESS 

RETURN IF END >= START 

SAVE STATUS (WHICH COORDINATE IS GREATER) 



LE9B1 


LDX 


HORBEG 




LEAX 


$01, X 




STX 


HORBEG 




RTS 






LDX 


VERBEG 




LEAX 


$01, X 




STX 


VERBEG 




RTS 




LE9BF 


LDX 


HORBEG 




LEAX 


$-01, X 




STX 


HORBEG 




RTS 






LDX 


VERBEG 




LEAX 


$-01, X 




STX 


VERBEG 


LE9CC 


RTS 




LE9CD 


LDD 


VEREND 




SUBD 


VERBEG 


LE9D1 


BCC 


LE9CC 




PSHS 


CC 



* THE NEXT THREE INSTRUCTIONS WILL NEGATE ACCD 
NEGA 
NEGB 

SBCA #$00 

PULS CC,PC 

LE9DB LDD HOREND 

SUBD HORBEG 

BRA LE9D1 



NEGATE ACCB 

RESTORE STATUS AND RETURN 

GET HORIZONTAL END COORD 

SUBTRACT OUT HORIZONTAL START COORD 

GET ABSOLUTE VALUE 



EVALUATE TWO SETS OF COORDINATES SEPERATED BY A MINUS 
SIGN. PUT 1ST SET OF COORDINATES AT (HORBEG, VERBEG) , SECOND 
SET AT (HOREND, VEREND). IF NOTHING BEFORE MINUS SIGN, PUT 
(HORDEF.VERDEF) DEFAULTS AT (HORBEG, VERBEG) . 



LE9E1 


LDX 


HORDEF 




STX 


HORBEG 




LDX 


VERDEF 




STX 


VERBEG 




CMPA 


#$AC 




BEQ 


LE9F0 




JSR 


LEA04 


LE9F0 


LDB 


#$AC 




JSR 


LB26F 




JSR 


LB26A 




JSR 


LB734 




LDY 


#HOREND 




JSR 


LE7B9 




BRA 


LEA0A 


LEA04 


JSR 


LB26A 




JSR 


LE7B2 


LEA0A 


JMP 


LB267 


LEA0D 


JSR 


LE7AD 




LDU 


#HOREND 




JMP 


LE7B0 


* POINT 


U TO 


ROUTINE Wl 


LEA16 


LDU 


#LEA25 




LDB 


HRMODE 




SUBB 


#$01 




ALSB 






LDU 


B,U 




RTS 




LEA21 


LDU 
RTS 


#LEA45 



GET THE LAST HORIZONTAL END POINT 

PUT AS START POINT 

GET THE LAST VERTICAL END POINT 

PUT AS VERTICAL START POINT 

CHECK FOR MINUS SIGN (-) TOKEN 

BRANCH IF NO STARTING COORDINATES GIVEN 

GO GET THE STARTING COORDINATES 

TOKEN FOR THE MINUS SIGN (-) 

DO A SYNTAX CHECK FOR A MINUS SIGN 

SYNTAX CHECK FOR A '(' 

EVALUATE 2 EXPRESSIONS 

TEMP STORAGE LOCS FOR END COORDS OF LINE COMMAND 

GET END POINT COORDINATES 

SYNTAX CHECK FOR A ')' 

SYNTAX CHECK FOR A '(' 

EVALUATE HORIZONTAL & VERTICAL COORDINATES WITH RANGE CHECK 

SYNTAX CHECK FOR ')' AND RETURN 

POINT U TO HORBEG; USELESS GIVEN THE FOLLOWINF INSTRUCTION 

POINT U TO HOREND 

JUMP TO AN RTS; ONCE WAS A JUMP TO NORMALIZATION ROUTINE 



POINT TO JUMP TABLE 

GET HI-RES GRAPHICS MODE VALUE 

ADJUST OUT MODE (WHY NOT DECB) 

TWO BYTES PER ENTRY 

GET JUMP ADDRESS 



POINT U TO ROUTINE TO MOVE ABSOLUTE POS DOWN ONE ROW 



* JUMP TABLE OF ADDRESSES OF ROUTINES WHICH WILL MOVE THE 

* ABSOLUTE SCREEN ADDRESS POINTER ONE PIXEL TO THE RIGHT 
LEA25 FDB LEA34 HSCREEN 1 
LEA27 FDB LEA3D HSCREEN 2 
LEA29 FDB LEA2D HSCREEN 3 
LEA2B FDB LEA34 HSCREEN 4 

* ENTER WITH ABSOLUTE SCREEN POSITION IN X, PIXEL MASK 

* IN ACCA - ADJUST X AND ACCA TO THE NEXT PIXEL TO THE RIGHT FOR HSCREEN 3 



LSRA 

BCC LEA33 

RORA 

LEAX $01, X 

RTS 



SHIFT ONE BIT TO THE RIGHT 

BRANCH IF SAME BYTE 

SET BIT 7 OF ACCA IF JUST MOVED TO NEXT BYTE 

ADD ONE TO SCREEN POSITION 



ENTER WITH ABSOLUTE SCREEN POSITION IN X, PIXEL MASK IN ACCA 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



1825 










1826 


EA34 


44 






1827 


EA35 


44 






1828 


EA36 


24 


FB 




1829 


EA38 


86 


C0 




1830 


EA3A 


30 


01 




1831 


EA3C 


39 






1832 










1833 










1834 










1835 


EA3D 


43 






1836 


EA3E 


81 


F0 




1837 


EA40 


26 


02 




1838 


EA42 


30 


01 




1839 


EA44 


39 






1840 










1841 










1842 










1843 


EA45 


D6 


B9 




1844 


EA47 


3A 






1845 


EA48 


39 






1846 










1847 










1848 


EA49 


0D 


E6 




1849 


EA4B 


10 


27 


FC 


1850 


EA4F 


10 


21 


15 


1851 


EA53 


81 


40 




1852 


EA55 


26 


02 




1853 


EA57 


9D 


9F 




1854 


EA59 


BD 


EB 


60 


1855 


EA5C 


BD 


EA 


04 


1856 


EA5F 


BD 


E7 


AD 


1857 


EA62 


AE 


C4 




1858 


EA64 


9F 


CB 




1859 


EA66 


AE 


42 




1860 


EA68 


9F 


CD 




1861 


EA6A 


BD 


B2 


6D 


1862 


EA6D 


BD 


B7 


3D 


1863 


EA70 


CE 


00 


CF 


1864 


EA73 


AF 


C4 




1865 


EA75 


BD 


E7 


B0 


1866 


EA78 


86 


01 




1867 


EA7A 


97 


C2 




1868 


EA7C 


BD 


E7 


18 


1869 


EA7F 


8E 


01 


00 


1870 


EA82 


9D 


A5 




1871 


EA84 


27 


0F 




1872 


EA86 


BD 


B2 


6D 


1873 


EA89 


BD 


Bl 


41 


1874 


EA8C 


96 


4F 




1875 


EA8E 


8B 


08 




1876 


EA90 


97 


4F 




1877 


EA92 


BD 


B7 


40 


1878 


EA95 


96 


E6 




1879 


EA97 


81 


02 




1880 


EA99 


22 


04 




1881 


EA9B 


IF 


10 




1882 


EA9D 


30 


8B 




1883 


EA9F 


9F 


Dl 




1884 


EAA1 


C6 


01 




1885 


EAA3 


D7 


C2 




1886 


EAA5 


D7 


D8 




1887 


EAA7 


BD 


EB 


7B 


1888 


EAAA 


34 


06 




1889 


EAAC 


BD 


EB 


7B 


1890 


EAAF 


DD 


D9 




1891 


EAB1 


35 


06 




1892 


EAB3 


34 


06 




1893 


EAB5 


9E 


C3 




1894 


EAB7 


9F 


BD 




1895 


EAB9 


9E 


C5 




1896 


EABB 


9F 


BF 




1897 


EABD 


CE 


EB 


9B 


1898 


EAC0 


84 


01 




1899 


EAC2 


27 


03 




1900 


EAC4 


50 






1901 


EAC5 


CB 


08 




1902 


EAC7 


58 






1903 


EAC8 


58 






1904 


EAC9 


33 


C5 




1905 


EACB 


34 


40 




1906 


EACD 


BD 


EB 


BD 


1907 


EAD0 


35 


40 




1908 


EAD2 


33 


5E 




1909 


EAD4 


34 


10 




1910 


EAD6 


BD 


EB 


BD 


1911 


EAD9 


35 


20 




1912 


EADB 


A6 


E4 




1913 


EADD 


84 


03 




1914 


EADF 


27 


06 




1915 


EAE1 


81 


03 




1916 


EAE3 


27 


02 




1917 


EAE5 


IE 


12 




1918 


EAE7 


9F 


C3 




1919 










1920 


EAE9 


IF 


20 





ADJUST X AND ACCA TO THE NEXT PIXEL TO THE RIGHT FOR HSCREEN 1 S 



LSRA 




LSRA 




BCC 


LEA33 


LDA 


#$C0 


LEAX 


$01, X 


RTS 





SHIFT MASK ONE BIT TO THE RIGHT 

DO IT AGAIN 

BRANCH IF SAME BYTE 

SET PIXEL #3 IF NEW BYTE 

ADD ONE TO SCREEN ADDRESS 



ENTER WITH ABSOLUTE SCREEN POSITION IN X, PIXEL MASK IN ACCA - 
ADJUST X AND ACCA TO THE NEXT PIXEL TO THE RIGHT FOR HSREEN 2 



LEA44 



COMA 

CMPA #$F0 
BNE LEA44 
LEAX $01, X 
RTS 



* ROUTINE TO MOVE DOWN ONE ROW 

* ENTER WITH ABSOLUTE SCREEN ADDRESS IN X 
LEA45 LDB HORBYT 

ABX 

RTS 



* HCIRCLE 






HCIRCLE 


TST 


HRMODE 






LBEQ 


LE6EF 






LBRN 


RAMLINK 






CMPA 


#'©' 






BNE 


LEA59 






JSR 


GETNCH 




LEA59 


JSR 


LEB60 






JSR 


LEA04 






JSR 


LE7AD 






LDX 


,u 






STX 


VCB 






LDX 


$02, U 






STX 


VCD 






JSR 


SYNCOMMA 






JSR 


LB73D 






LDU 


#VCF 






STX 


,u 






JSR 


LE7B0 






LDA 


#$01 






STA 


SETFLG 






JSR 


LE718 






LDX 


#$100 






JSR 


GETCCH 






BEQ 


LEA95 






JSR 


SYNCOMMA 






JSR 


LB141 






LDA 


FP0EXP 






ADDA 


#$08 






STA 


FP0EXP 






JSR 


LB740 




LEA95 


LDA 


HRMODE 






CMPA 


#$02 






BHI 


LEA9F 






TFR 


X,D 






LEAX 


D,X 




LEA9F 


STX 


VD1 






LDB 


#$01 






STB 


SETFLG 






STB 


VD8 






JSR 


LEB7B 






PSHS 


B,A 






JSR 


LEB7B 






STD 


VD9 






PULS 


A,B 




LEAB3 


PSHS 


B,A 






LDX 


HOREND 






STX 


HORBEG 






LDX 


VEREND 






STX 


VERBEG 






LDU 


#LEB9B 






ANDA 


#$01 






BEQ 


LEAC7 






NEGB 








ADDB 


#$08 




LEAC7 


ALSB 
ALSB 








LEAU 


B,U 






PSHS 


U 






JSR 


LEBBD 






PULS 


U 






LEAU 


$-02, U 






PSHS 


X 






JSR 


LEBBD 






PULS 


Y 






LDA 


,S 






ANDA 


#$03 






BEQ 


LEAE7 






CMPA 


#$03 






BEQ 


LEAE7 






EXG 


X,Y 




LEAE7 


STX 


HOREND 




* H/W RATIO WILL ONLY MODIFY THE VERTICAL COORD 




TFR 


Y,D 





SET TO ALTERNATE PIXEL 

SEE IF TOP HALF OF BYTE 

BRANCH IF SAME BYTE 

MOVE POINTER TO NEXT SCREEN ADDRESS 



GET NUMBER OF BYTES PER HORIZONTAL GRAPHICS ROW 
ADD A ROW TO CURRENT ADDRESS (MOVE DOWN ONE ROW) 



CHECK HI-RES GRAPHICS MODE 

BRANCH IF NOT HI-RES GRAPHICS 

RAM HOOK 

CHECK FOR SIGN (HCIRCLEg IS LEGAL SYNTAX) 

BRANCH IF NOT 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 

GET MAX HORIZONTAL & VERTICAL COORD VALUES AND PUT THEM IN VD3 S VD5 

GET HORIZONTAL & VERTICAL CENTER COORDS AND PUT THEM IN VBD AND VBF 

NORMALIZE START COORDS FOR PROPER HI-RES GRAPHICS MODE 

GET HORIZONTAL COORD 

SAVE IT 

GET VERTICAL COORD 

SAVE IT 

DO A SYNTAX CHECK FOR A COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN X 

POINT U TO TEMP DATA STORAGE 

SAVE RADIUS 

NOW A JSR TO AN RTS; WAS A CALL TO A NORMALIZATION ROUTINE 

PSET FLAG 

SAVE PSET/PRESET FLAG 

GO EVALUATE COLOR EXPRESSION AND SAVE VALUE 

DEFAULT HEIGHT/WIDTH RATIO 

GET BASIC'S CURRENT INPUT CHARACTER 

BRANCH IF NONE 

DO A SYNTAX CHECK FOR A COMMA 

EVALUATE A NUMERIC EXPRESSION 

GET FPA0 EXPONENT 

ADD 8 TO IT (EFFECTIVELY MULTIPLIES BY 256) 

SAVE NEW VALUE 

EVALUATE EXPRESSION, RETURN VALUE IN X 

GET CURRENT HI-RES GRAPHICS MODE 

SEE WHICH MODE IT IS 

BRANCH IF HSCREEN 4 

PREPARE TO DOUBLE THE HEIGHT/WIDTH RATIO FOR MODES 0-2 

DOUBLE H/W RATIO TO COMPENSATE FOR HORIZONTAL PIXEL SIZE 

SAVE H/W RATIO 

CODE FOR PSET 

SET PSET/PRESET FLAG TO PSET 

FIRST TIME FLAG - SET TO AFTER ARC DRAWN 

EVALUATE CIRCLE START POINT (OCTANT, SUBARC) 

SAVE START POINT 

EVALUATE CIRCLE END POINT (OCTANT, SUBARC) 

SAVE END POINT 

GET BACK START POINT 

STORE CURRENT CIRCLE POSITION 

GET END HORIZONTAL COORD 

MAKE IT THE NEW START 

GET END VERTICAL COORD 

MAKE IT THE NEW START 

POINT TO TABLE OF SINES AND COSINES 

TEST OCTANT NUMBER 

BRANCH IF EVEN 

CONVERT 0-7 TO 8-1 FOR ODD OCTANT NUMBERS 

MUL BY 2 

DO IT AGAIN (FOUR BYTES PER TABLE ENTRY) 

POINT TO CORRECT TABLE ENTRY 

SAVE SIN/COS TABLE ENTRY 

CALCULATE HORIZONTAL OFFSET 

GET BACK SIN/COS TABLE POINTER 

MOVE TO COSINE (VERTICAL) 

SAVE HORIZONTAL OFFSET 

CALCULATE VERTICAL OFFSET 

PUT HORIZONTAL OFFSET IN Y 

GET OCTANT NUMBER 

MASK OFF BOTTOM TWO BITS 

BRANCH IF OCTANT OR 4 

NOW SEE IF BOTH BITS WERE SET 

BRANCH IF OCTANT 3 OR 7 

SWAP HORIZONTAL AND VERTICAL OFFSETS 

SAVE HORIZONTAL OFFSET 



PUT CALCULATED VERTICAL OFFSET INTO ACCD 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1921 


EAEB 


44 






1922 


EAEC 


56 






1923 


EAED 


9E 


Dl 




1924 


EAEF 


BD 


EB 


CB 


1925 


EAF2 


IF 


20 




1926 


EAF4 


4D 






1927 


EAF5 


10 


26 


C9 51 


1928 


EAF9 


D7 


C5 




1929 


EAFB 


IF 


30 




1930 


EAFD 


97 


C6 




1931 


EAFF 


A6 


E4 




1932 


EB01 


81 


02 




1933 


EB03 


25 


0E 




1934 


EB05 


81 


06 




1935 


EB07 


24 


0A 




1936 


EB09 


DC 


CB 




1937 


EB0B 


93 


C3 




1938 


EB0D 


24 


11 




1939 


EB0F 


4F 






1940 


EB10 


5F 






1941 


EB11 


20 


0D 




1942 


EB13 


DC 


CB 




1943 


EB15 


D3 


C3 




1944 


EB17 


25 


05 




1945 


EB19 


10 


93 


D3 


1946 


EB1C 


25 


02 




1947 


EB1E 


DC 


[13 




1948 


EB20 


DD 


C3 




1949 


EB22 


A6 


E4 




1950 


EB24 


81 


04 




1951 


EB26 


25 


0A 




1952 


EB28 


DC 


CD 




1953 


EB2A 


93 


C5 




1954 


EB2C 


24 


11 




1955 


EB2E 


4F 






1956 


EB2F 


5F 






1957 


EB30 


20 


0D 




1958 


EB32 


DC 


CD 




1959 


EB34 


D3 


C5 




1960 


EB36 


25 


05 




1961 


EB38 


10 


93 


D5 


1962 


EB3B 


25 


02 




1963 


EB3D 


DC 


D5 




1964 


EB3F 


DD 


C5 




1965 


EB41 


0D 


D8 




1966 


EB43 


26 


03 




1967 










1968 










1969 


EB45 


17 


FE 


06 


1970 


EB48 


35 


06 




1971 


EB4A 


04 


D8 




1972 


EB4C 


25 


05 




1973 


EB4E 


10 


93 


D9 


1974 


EB51 


27 


0C 




1975 










1976 


EB53 


5C 






1977 


EB54 


CI 


08 




1978 


EB56 


26 


04 




1979 


EB58 


4C 






1980 


EB59 


5F 






1981 


EB5A 


84 


07 




1982 










1983 


EB5C 


7E 


EA 


B3 


1984 


EB5F 


39 






1985 










1986 










1987 










1988 


EB60 


CE 


00 


D3 


1989 


EB63 


8E 


02 


7F 


1990 


EB66 


AF 


C4 




1991 


EB68 


96 


E6 




1992 


EB6A 


81 


02 




1993 


EB6C 


2E 


05 




1994 


EB6E 


8E 


01 


3F 


1995 


EB71 


AF 


C4 




1996 


EB73 


8E 


00 


BF 


1997 


EB76 


AF 


42 




1998 


EB78 


7E 


E7 


B0 


1999 










2000 










2001 










2002 










2003 


EB7B 


5F 






2004 


EB7C 


9D 


A5 




2005 


EB7E 


27 


11 




2006 


EB80 


BD 


B2 


6D 


2007 


EB83 


BD 


Bl 


41 


2008 


EB86 


96 


4F 




2009 


EB88 


8B 


Of. 




2010 


EB8A 


97 


4F 




2011 


EB8C 


BD 


B7 


0E 


2012 


EB8F 


C4 


3F 




2013 


EB91 


IF 


98 




2014 


EB93 


C4 


07 




2015 


EB95 


44 






2016 


EB96 


44 









LSRA 






RORB 






LDX 


VD1 




JSR 


LEBCB 




TFR 


Y,D 




TSTA 






LBNE 


ILLFUNC 




STB 


VEREND 




TFR 


U,D 




STA 


VEREND+1 




LDA 


,s 




CMPA 


#$02 




BCS 


LEB13 




CMPA 


#$06 




BCC 


LEB13 




LDD 


VCB 




SUBD 


HOREND 




BCC 


LEB20 




CLRA 






CLRB 






BRA 


LEB20 


LEB13 


LDD 


VCB 




ADDD 


HOREND 




BCS 


LEB1E 




CMPD 


VD3 




BCS 


LEB20 


LEB1E 


LDD 


VD3 


LEB20 


STD 


HOREND 




LDA 


,s 




CMPA 


#$04 




BCS 


LEB32 




LDD 


VCD 




SUBD 


VEREND 




BCC 


LEB3F 




CLRA 






CLRB 






BRA 


LEB3F 


LEB32 


LDD 


VCD 




ADDD 


VEREND 




BCS 


LEB3D 




CMPD 


VD5 




BCS 


LEB3F 


LEB3D 


LDD 


VD5 


LEB3F 


STD 


VEREND 




TST 


VD8 




BNE 


LEB48 




LBSR 


LE94E 


LEB48 


PULS 


A,B 




LSR 


VD8 




BCS 


LEB53 




CMPD 


VD9 




BEQ 


LEB5F 


* INCREMENT SUBARC CTR, 


LEB53 


INCB 






CMPB 


#$08 




BNE 


LEB5C 




INCA 






CLRB 






ANDA 


#$07 


LEB5C 


JMP 


LEAB3 


LEB5F 


RTS 





DIVIDE OFFSET BY 2 

GET H/W RATIO 

MULT VERTICAL OFFSET BY H/W RATIO 

TRANSFER PRODUCT TO ACCD 

CHECK OVERFLOW AND GET MS BYTE RESULT 

ILLEGAL FUNCTION CALL ERROR (RESULT > 255) 

SAVE DELTA VERTICAL MS BYTE 

LS BYTE RESULT TO ACCA 

SAVE DELTA VERTICAL LS BYTE 

GET OCTANT NUMBER 

CHECK FOR OCTANT 0,1,6,7 

BRANCH IF SUBARC HORIZONTAL END POINT >= HORIZONTAL CENTER 

MORE CHECKS FOR OCTANT 0,1,6,7 

BRANCH IF SUBARC HORIZONTAL END POINT >= HORIZONTAL CENTER 

GET HORIZONTAL COORD OF CENTER 

SUBTRACT HORIZONTAL DIFFERENCE 

BRANCH IF NO UNDERFLOW 

FORCE COORD TO IF RESULT WAS LESS THAN 

SAVE NEW COORD 

GET HORIZONTAL COORD OF CENTER 

ADD HORIZONTAL DIFFERENCE 

BRANCH IF OVERFLOW 

COMPARE TO MAX HORIZONTAL COORDINATE 

BRANCH IF < MAX HOR 

GET MAX HORIZONTAL COORD 

SAVE NEW HORIZONTAL SUBARC END COORD 

GET OCTANT NUMBER 

CHECK FOR OCTANT 0,1,2 OR 3 

BRANCH IF SUBARC VERTICAL END POINT >= VERTICAL CENTER 

GET VERTICAL COORD OF CENTER 

SUBTRACT VERTICAL DIFFERENCE 

BRANCH IF NO UNDERFLOW 

FORCE NEW VERTICAL TO IF MINUS 
SAVE NEW COORD 

GET VERTICAL COORD OF CENTER 
ADD VERTICAL DIFFERENCE 
BRANCH IF OVERFLOW 
COMPARE TO MAX VERTICAL COORD 
BRANCH IF < MAX VER 
GET MAX VERTICAL COORD 
SAVE NEW VERTICAL SUBARC END COORD 
CHECK FIRST TIME FLAG 

DO NOT DRAWE A LINE FIRST TIME THROUGH - 
BECAUSE THE FIRST TIME YOU WOULD DRAW A LINE 
FROM THE CENTER TO THE FIRST POINT ON THE CIRCLE 
DRAW A LINE 
GET END COORDS 
SHIFT FIRST TIME FLAG 

DO NOT CHECK FOR END POINT AFTER DRAWING FIRST ARC 
COMPARE CURRENT POSITION TO END POINT 
BRANCH IF CIRCLE DRAWING IS FINISHED 
7 THEN INC OCTANT CTR 

INC SUBARC COUNTER 

> 7? 

BRANCH IF NOT 

INCR OCTANT COUNTER 

RESET SUBARC COUNTER 

KEEP IN RANGE OF 0-7; ONCE ACCA=ACCB, THIS WILL MAKE ACCA=0 

SO THE END POINT WILL BE (0,0) AND THE CIRCLE ROUTINE WILL END 

KEEP DRAWING THE CIRCLE 

EXIT CIRCLE ROUTINE 



GET MAXIMUM VALUE OF HORIZONTAL S VERTICAL COORDINATES NORMALIZED FOR 



PROPER GRAPHICS MODE. 



LDU 


#VD3 


LDX 


#640-1 


STX 


,u 


LDA 


HRMODE 


CMPA 


#$02 


BGT 


LEB73 


LDX 


#320-1 


STX 


,u 


LDX 


#192-1 


STX 


$02, U 


JMP 


LE7B0 



RETURN VALUES: HORIZONTAL IN VD3, VERTICAL IN VD5 
POINT U TO STORAGE AREA 
GET MAXIMUM HORIZONTAL COORD 
SAVE IT 

GET CURRENT GRAPHICS MODE 
SEE WHICH MODE 
BRANCH IF MODES 3 OR 4 

MAXIMUM VALUE FOR HORIZONTAL COORD IN MODES 1 AND 2 
SAVE IT 

GET THE MAXIMUM VERTICAL COORD 
SAVE IT 
JUMP TO AN RTS; ONCE WAS A NORMALIZATION ROUTINE 



EVALUATE CIRCLE START POINT (OCTANT, SUBARC) 

CALCULATE START OF END POINT WHICH IS A NUMBER FROM 

0-63 SAVED AS AN OCTANT NUMBER (0-7) AND SUBARC NUMBER (0-7) 



CLRB 




JSR 


GETCCH 


BEQ 


LEB91 


JSR 


SYNCOMMA 


JSR 


LB141 


LDA 


FP0EXP 


ADDA 


#$06 


STA 


FP0EXP 


JSR 


LB70E 


ANDB 


#$3F 


TFR 


B,A 


ANDB 


#$07 


LSRA 




LSRA 





SET DEFAULT VALUE TO 

GET BASIC'S CURRENT INPUT CHARACTER 

BRANCH IF NONE 

DO A SYNTAX CHECK FOR A COMMA 

EVALUATE A NUMERIC EXPRESSION 

GET EXPONENT OF FPA0 

ADD 6 TO EXPONENT - MULTIPLY EXPONENT 

RESAVE IT 

CONVERT FPA0 TO INTEGER IN ACCB 

FORCE MAX VALUE OF 63 

SAVE VALUE IN ACCA ALSO 

NOW ACCB CONTAINS SUBARC NUMBER 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



2017 


EB97 


44 






2018 


EB98 


39 






2019 










2020 


EB99 


00 


00 


00 01 


2021 


EB9D 


FE 


C5 


19 19 


2022 


EBA1 


FB 


16 


31 F2 


2023 


EBA5 


F4 


FB 


4A 51 


2024 


EBA9 


EC 


84 


61 F9 


2025 


EBAD 


El 


C7 


78 AE 


2026 


EBB1 


D4 


DC 


8E 3B 


2027 


EBB5 


C5 


E5 


A2 69 


2028 


EBB9 


B5 


06 


B5 06 


2029 










2030 










2031 


EBBD 


9E 


CF 




2032 


EBBF 


EC 


C4 




2033 


EBC1 


27 


07 




2034 


EBC3 


83 


00 


01 


2035 


EBC6 


8D 


03 




2036 


EBC8 


IF 


21 




2037 


EBCA 


39 






2038 










2039 










2040 










2041 










2042 










2043 










2044 










2045 










2046 










2047 


EBCB 


34 


76 




2048 


EBCD 


6F 


64 




2049 


EBCF 


A6 


63 




2050 


EBD1 


3D 






2051 


EBD2 


ED 


66 




2052 


EBD4 


EC 


61 




2053 


EBD6 


3D 






2054 


EBD7 


EB 


66 




2055 


EBD9 


89 


00 




2056 


EBDB 


ED 


65 




2057 


EBDD 


E6 


E4 




2058 


EBDF 


A6 


63 




2059 


EBE1 


3D 






2060 


EBE2 


E3 


65 




2061 


EBE4 


ED 


65 




2062 


EBE6 


24 


02 




2063 


EBE8 


6C 


64 




2064 


EBEA 


A6 


E4 




2065 


EBEC 


E6 


62 




2066 


EBEE 


3D 






2067 


EBEF 


E3 


64 




2068 


EBF1 


ED 


64 




2069 


EBF3 


35 


F6 




2070 










2071 










2072 


EBF5 


0D 


E6 




2073 


EBF7 


10 


27 


FA F4 


2074 


EBFB 


10 


21 


14 01 


2075 


EBFF 


81 


40 




2076 


EC01 


26 


02 




2077 


EC03 


9D 


9F 




2078 


EC05 


BD 


EA 


04 


2079 


EC08 


BD 


E7 


AD 


2080 


EC0B 


86 


01 




2081 


EC0D 


97 


C2 




2082 


EC0F 


BD 


E7 


18 


2083 


EC12 


DC 


B4 




2084 


EC14 


34 


06 




2085 


EC16 


9D 


A5 




2086 


EC18 


27 


03 




2087 










2088 


EC1A 


BD 


E7 


18 


2089 


EC1D 


96 


B5 




2090 


EC1F 


97 


D8 




2091 


EC21 


35 


06 




2092 


EC23 


DD 


B4 




2093 


EC25 


BD 


El 


19 


2094 


EC28 


4F 






2095 


EC29 


34 


56 




2096 










2097 


EC2B 


BD 


EB 


60 


2098 


EC2E 


BD 


E7 


E6 


2099 










2100 










2101 


EC31 


DF 


D9 




2102 


EC33 


BD 


EC 


BE 


2103 


EC36 


27 


0F 




2104 


EC38 


BD 


ED 


01 


2105 


EC3B 


86 


01 




2106 


EC3D 


97 


D7 




2107 


EC3F 


BD 


ED 


2E 


2108 


EC42 


00 


D7 




2109 


EC44 


BD 


ED 


2E 


2110 


EC47 


10 


DF 


DC 


2111 


EC4A 


0D 


DB 




2112 


EC4C 


26 


03 







LSRA 








RTS 






CIRC DATA 


FDB 


$0000 


,$0001 


LEB9D 


FDB 


$FEC5 


,$1919 


LEBA1 


FDB 


$FB16 


,$31F2 


LEBA5 


FDB 


$F4FB 


,$4A51 


LEBA9 


FDB 


$EC84 


,$61F9 


LEBAB 


FDB 


$E1C7 


,$78AE 


LEBAF 


FDB 


$D4DC 


,$8E3B 


LEBB5 


FDB 


$C5E5 


,$A269 


LEBB9 


FDB 


$B506 


,$B506 


* MULTIPLY RADIUS BY 


SIN/Ci 


LEBBD 


LDX 


VCF 






LDD 


,u 






BEQ 


LEBCA 






SUBD 


#1 






BSR 


LEBCB 






TFR 


Y,X 




LEBCA 


RTS 







DIVIDE 


ACCA 


SUBARC 





SUBARC 


1 


SUBARC 


2 


SUBARC 


3 


SUBARC 


4 


SUBARC 


5 


SUBARC 


6 


SUBARC 


7 


SUBARC 


8 



BY 8 - OCTANT NUMBER 



GET RADIUS 

GET SIN7COS TABLE MODIFIER 

BRANCH IF (OFFSET = RADIUS) 

SUBTRACT ONE 

MULTIPLY RADIUS BY SIN7COS 

RETURN RESULT IN X 



MULTIPLY (UNSIGNED) TWO 16 BIT NUMBERS TOGETHER - 

ENTER WITH ONE NUMBER IN ACCD, THE OTHER IN X REGISTER 

THE 4 BYTE PRODUCT WILL BE STORED IN 4,S - 7,S 

(Y, U REGISTERS ON THE STACK). I.E. (AA AB) X (XH,XL)= 

256 * AA * XH + 16 * (AA * XL + AB * HX) + AB * XL. THE TWO BYTE 

MULTIPLIER AND THE MULTIPLICAND ARE TREATED AS A 1 

BYTE INTEGER PART (MSB) WITH A 1 BYTE FRACTIONAL PART (LSB) 



LEBCB 


PSHS 


U,Y,X,B,A 




CLR 


$04, S 




LDA 


$03, S 




MUL 






STD 


$06, S 




LDD 


$01, S 




MUL 






ADDB 


$06, S 




ADCA 


#$00 




STD 


$05, S 




LDB 


,s 




LDA 


$03, S 




MUL 






ADDD 


$05, S 




STD 


$05, S 




BCC 


LEBEA 




INC 


$04, S 


LEBEA 


LDA 


,s 




LDB 


$02, S 




MUL 






ADDD 


$04, S 




STD 


$04, S 




PULS 


A,B,X,Y,U,PC 


* HPAIN1 






HPAINT 


TST 


HRMODE 




LBEQ 


LE6EF 




LBRN 


RAMLINK 




CMPA 


#'©' 




BNE 


LEC05 




JSR 


GETNCH 


LEC05 


JSR 


LEA04 




JSR 


LE7AD 




LDA 


#$01 




STA 


SETFLG 




JSR 


LE718 




LDD 


WCOLOR 




PSHS 


B,A 




JSR 


GETCCH 




BEQ 


LEC1D 




JSR 


LE718 


LEC1D 


LDA 


ALLCOL 




STA 


VD8 




PULS 


A,B 




STD 


WCOLOR 




JSR 


SELTASK1 




CLRA 






PSHS 


U,X,B,A 



THE CLRA WILL CAUSE THE UP7DN FLAG TO 
JSR LEB60 
JSR LE7E6 



SAVE REGISTERS AND RESERVE STORAGE SPACE ON THE STACK 
RESET OVERFLOW FLAG 



= CALCULATE ACCB*XL, STORE RESULT IN 6,S 
* CALCULATE ACCB*XH 

= ADD THE CARRY FROM THE 1ST MUL TO THE RESULT OF THE 2ND MUL 



* CALCULATE ACCA*XL 

= ADD RESULT TO TOTAL OF 2 PREVIOUS MULTS 

BRANCH IF NO OVERFLOW 

SET OVERFLOW FLAG (ACCD > $FFFF) 



CALCULATE ACCA*XH 



= ADD TO PREVIOUS RESULT 
RETURN WITH RESULT IN U AND Y 



CHECK HI-RES GRAPHICS MODE 

•HR' ERROR IF HI-RES GRAPHICS MODE NOT SET UP 

RAM HOOK 

CHECK FOR 6 SIGN 

BRANCH IF NOT 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE 

SYNTAX CHECK FOR '(', TWO EXPRESSIONS, AND ')' 

NORMALIZE THE HORIZONTAL AND VERTICAL COORDS 

CODE FOR PSET 

SET PSET7PRESET FLAG TO PSET 

GET PAINT COLOR CODE & SET ACTIVE COLOR AND ALL PIXEL BYTES 

GET THEM 

SAVE THEM ON THE STACK 

GET BASIC'S CURRENT INPUT CHARACTER 

BRANCH IF NONE LEFT - DEFAULT BORDER COLOR TO FOREGROUND, 

PAINT COLOR TO BACKGROUND 

EVALUATE THE BORDER COLOR 

GET BORDER COLOR ALL PIXEL BYTE 

TEMP SAVE IT 

GET PAINT ACTIVE COLORS BACK 

RESAVE THEM 

* STORE A BLOCK OF 'PAINT' DATA ON THE STACK WHICH 

* WILL ACT AS AN END OF 'PAINT' DATA FLAG. 
BE ZERO WHICH IS USED TO EXIT THE HPAINT ROUTINE 

GET NORMALIZED MAX HOR7VERTICAL VALUES - RETURN RESULT IN VD 
POINT U TO THE ROUTINE WHICH WILL SELECT A PIXEL 



'PAINT' THE FIRST HORIZONTAL LINE FROM THE START COORDINATES 



LEC47 
LEC4A 



STU 
JSR 
BEQ 
JSR 
LDA 
STA 
JSR 
NEG 
JSR 
STS 
TST 
BNE 



VD9 

LECBE 

LEC47 

LED01 

#$01 

VD7 

LED2E 

VD7 

LED2E 

TMPSTK 

CHGFLG 

LEC51 



SAVE ADDRESS 

'PAINT' FROM THE CURRENT HORIZONTAL COORD TO ZERO 

BRANCH IF NO PAINTING DONE - HIT BORDER INSTANTLY 

PAINT TOWARD MAX HORIZONTAL COORD 

SET UP/DN FLAG TO UP (1=UP, $FF=DOWN) 

SAVE IT 

SAVE POSITIVE GOING LINE INFO ON STACK 

SET UP7DN FLAG TO $FF (DOWN) 

SAVE NEGATIVE GOING LINE INFO ON STACK 

TEMP STORE STACK POINTER 

SEE IF PAINTED COLOR IS DIFFERENT THAN THE ORIGINAL COLOR 

BRANCH IF DATA HAS BEEN MODIFIED 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 
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27 
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06 
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BE 
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27 
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10 


83 
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2137 
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25 


05 




2138 


EC7B 


30 
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2139 
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BD 


ED 


15 


2140 
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BD 


ED 


01 


2141 


EC83 


BD 


ED 


2E 


2142 










2143 










2144 










2145 


EC86 


43 






2146 


EC87 


53 






2147 


EC88 


D3 


Dl 




2148 


EC8A 


DD 


Dl 




2149 


EC8C 


2F 


17 




2150 


EC8E 


BD 


E9 


Bl 


2151 


EC91 


BD 


EC 


Fl 


2152 


EC94 


26 


05 




2153 


EC96 


CC 


FF 


FF 


2154 


EC99 


20 


ED 




2155 


EC9B 


BD 


E9 


BF 


2156 


EC9E 


BD 


ED 


3A 


2157 


ECA1 


8D 


24 




2158 


ECA3 


20 


DE 




2159 










2160 










2161 










2162 










2163 










2164 


ECA5 


BD 


E9 


Bl 


2165 


ECA8 


30 


8B 




2166 


ECAA 


9F 


BD 




2167 


ECAC 


43 






2168 


ECAD 


53 






2169 


ECAE 


83 


00 


01 


2170 


ECB1 


2F 


04 




2171 


ECB3 


IF 


01 




2172 










2173 


ECB5 


8D 


5E 




2174 










2175 


ECB7 


7E 


EC 


4A 


2176 


ECBA 


BD 


E0 


FF 


2177 


ECBD 


39 






2178 










2179 










2180 


ECBE 


BD 


ED 


3A 


2181 


ECC1 


10 


8E 


E9 BF 


2182 


ECC5 


20 


06 




2183 










2184 


ECC7 


10 


8E 


E9 Bl 


2185 


ECCB 


AD 


A4 




2186 


ECCD 


DE 


8A 




2187 


ECCF 


9E 


BD 




2188 


ECD1 


2B 


17 




2189 


ECD3 


9C 


D3 




2190 


ECD5 


22 


13 




2191 


ECD7 


34 


60 




2192 


ECD9 


8D 


16 




2193 


ECDB 


27 


0B 




2194 


ECDD 


BD 


E7 


92 


2195 


ECE0 


35 


60 




2196 


ECE2 


33 


41 




2197 


ECE4 


AD 


A4 




2198 


ECE6 


20 


E9 




2199 


ECE8 


35 


60 




2200 


ECEA 


IF 


30 




2201 


ECEC 


IF 


01 




2202 


ECEE 


93 


8A 




2203 


ECF0 


39 






2204 










2205 










2206 










2207 


ECF1 


AD 


9F 


00 D9 


2208 


ECF5 


IF 


89 







LDS 


TMPSTK 


LEC51 


PULS 


A,B,X,U 




CLR 


CHGFLG 




STS 


TMPSTK 




LEAX 


$01, X 




STX 


HORBEG 




STU 


VD1 




STA 


VD7 




BEQ 


LECBA 




BMI 


LEC6A 


* CHECK 


ONE LINE BELOW CURRENT DATA 




INCB 






CMPB 


VD6 




BLS 


LEC6E 




CLRB 




LEC6A 


TSTB 






BEQ 


LEC4A 




DECB 




* PROCESS A HORIZONTAL LINE THAT WA: 


LEC6E 


STB 


VERBEG+1 




JSR 


LECBE 




BEQ 


LEC86 




CMPD 


#3 




BCS 


LEC80 




LEAX 


$-02, X 




JSR 


LED15 


LEC80 


JSR 


LED01 


LEC83 


JSR 


LED2E 



GET STACK POINTER BACK 

GET DATA FOR NEXT LINE SEGMENT TO CHECK FROM THE STACK 

CLEAR THE CHANGE FLAG 

TEMP SAVE THE STACK ADDRESS 

ADD ONE TO 'START HORIZONTAL COORD -1' 

PIT IT AT 'CURRENT HORIZONTAL COORD ADDRESS' 

SAVE LENGTH OF PARENT LINE 

SAVE UP/DN FLAG 

EXIT ROUTINE IF UP/DN FLAG = 

BRANCH IF UP/DN FLAG ■ DOWN 

INCREMENT VERTICAL COORD 
COMPARE TO MAXIMUM VERTICAL COORD 
BRANCH IF NOT GREATER - PROCESS LINE 
SET VERTICAL COORD TO ZERO TO FORCE WRAP AROUND 
CHECK VERTICAL COORD 

PROCESS ANOTHER BLOCK OF PAINT DATA IF WRAP AROUND - 
DISCARD ANY LINE BELOW VERTICAL COORD = OR ABOVE MAX VER COORD 
DEC VERTICAL COORD 
;TACK - LIMIT CHECK HAVE BEEN DONE 
SAVE CURRENT VERTICAL COORD 

PAINT FROM HORIZONTAL COORD TO ZERO OR BORDER 
BRANCH IF NO PIXELS WERE PAINTED 
SEE IF FEWER THAN 3 PIXELS WERE PAINTED 
BRANCH IF NO NEED TO CHECK FOR PAINTABLE DATA 
MOVE HORIZONTAL COORD TWO PIXELS TO THE LEFT 

SAVE A BLOCK OF PAINT DATA IN THE DIRECTION OPPOSITE TO UP/DN FLAG 
CONTINUE PAINTING LINE TO THE RIGHT 
SAVE A BLOCK OF PAINT DATA IN THE SAME DIRECTION AS UP/DN FLAG 



THIS CODE WILL INSURE THAT THE CURRENT LINE IS 
EXAMINED TO THE RIGHT FOR PAINTABLE PIXELS FOR A 
LINE EQUAL TO THE LENGTH OF THE PARENT LINE 



COMA 




COMB 




ADDD 


VD1 


STD 


VD1 


BLE 


LECA5 


JSR 


LE9B1 


JSR 


LECF1 


BNE 


LEC9B 


LDD 


#-1 


BRA 


LEC88 


JSR 


LE9BF 


JSR 


LED3A 


BSR 


LECC7 


BRA 


LEC83 



* COMPLEMENT LENGTH OF LINE JUST PAINTED 
ADD TO LENGTH OF PARENT LINE 

SAVE DIFFERENCE OF LINE JUST PAINTED AND PARENT LINE 
BRANCH IF PARENT LINE IS SHORTER 
GO INCR HORIZONTAL COORD 
CHECK FOR BORDER COLOR 
BRANCH IF NOT BORDER COLOR 

* GO DECREMENT ONE FROM LENGTH OF DIFFERENCE 

* LINE AND KEEP LOOKING FOR NON BORDER COLOR 
GET DECR HORIZONTAL COORD 

GET AND SAVE HORIZONTAL COORD 

PAINT FORWARD TO MAX HORIZONTAL COORD OR BORDER 

SAVE BLOCK OF PAINT DATA AND KEEP CHECKING 



CHECK TO SEE IF THE CURRENT LINE EXTENDS FURTHER TO 
THE RIGHT THAN THE PARENT LINE AND PUT A BLOCK OF 
PAINT DATA ON THE STACK IF IT IS MORE THAN 2 PIXELS 
PAST THE END OF THE PARENT LINE 



JSR 


LE9B1 


LEAX 


D,X 


STX 


HORBEG 


COMA 




COMB 




SUBD 


#1 


BLE 


LECB7 


TFR 


D,X 



INC CURRENT HORIZONTAL COORD 

POINT X TO THE RIGHT END OF THE PARENT LINE 

SAVE AS THE CURRENT HORIZONTAL COORDINATE 

= ACCA CONTAINS A NEGATIVE NUMBER CORRESPONDING TO THE NUMBER 

= OF PIXELS THE CURRENT LINE EXTENDS PAST THE RIGHT END 

= OF THE PARENT LINE. CONVERT TO POSITIVE NUMBER AND BRANCH 

= IF THE LINE DOESN'T EXTEND PAST THE END OF THE PARENT. 

SAVE PORTION OF THE LINE TO THE RIGHT OF THE PARENT LINE 

AS THE LENGTH 

SAVE BLOCK OF PAINT DATA IN THE DIRECTION OPPOSITE THE 

CURRENT UP/DN FLAG 

PROCESS MORE PAINT DATA BLOCKS 

ENABLE TASK REGISTER 



* PAINT FROM HORIZONTAL COORD TO ZERO OR HIT BORDER; RETURN WITH Z=l IF NO PAINTING DONE 
LECBE JSR LED3A PUT STARTING COORD IN HOREND 

LDY #LE9BF ROUTINE TO DEC HORIZONTAL ADDRESS 

BRA LECCD GO PAINT THE LINE 

* PAINT FROM HORIZONTAL COORD TO MAX HORIZONTAL COORD OR HIT BORDER; RETURN Z=l IF NO PAINTING DONE 



LECB7 


JMP 


LEC4A 


LECBA 


JSR 
RTS 


SELTASK0 



LECC7 



LECCD 



LECD1 



LECE8 
LECEA 



LDY 
JSR 

LDU 

LDX 

BMI 

CMPX 

BHI 

PSHS 

BSR 

BEQ 

JSR 

PULS 

LEAU 

JSR 

BRA 

PULS 

TFR 

TFR 

SUBD 



#LE9B1 

,Y 

ZERO 

HORBEG 

LECEA 

VD3 

LECEA 

U,Y 

LECF1 

LECE8 

LE792 

Y,U 

$01, U 

,Y 

LECD1 

Y,U 

U,D 

D,X 

ZERO 



ROUTINE TO INCR HORIZONTAL COORD 

INCR HORIZONTAL COORD - LEFT PAINT ROUTINE PAINTED FIRS 

ZERO INITIAL PIXEL PAINT COUNTER 

GET HORIZONTAL COORD 

BRANCH IF HORIZONTAL COORD IS > $7F OR < 

COMPARE CURRENT COORD TO MAX VALUE 

BRANCH IF > MAX 

SAVE PAINT COUNTER AND INC/DEC POINTER 

CHECK FOR BORDER PIXEL 

BRANCH IF HIT BORDER 

SET PIXEL TO PAINT COLOR - PAINTING IS DONE HERE 

RESTORE PAINT COUNTER AND INC/DEC POINTER 

ADD ONE TO PAINT COUNTER 

INCR OR DECR HORIZONTAL COORD DEPENDING ON CONTENTS OF 

KEEP PAINTING LINE 

RESTORE PAINT COUNTER AND INC/DEC POINTER 

SAVE PAINT COUNTER IN ACCD 

ALSO SAVE IT IN X 

SET COUNTERS ACCORDING TO CONDITION OF PAINT COUNTER 



RTS 

* CHECK FOR BORDER COLOR - ENTER WITH VD9 CONTAINING 

* ADDRESS OF ROUTINE TO GET ABSOLUTE SCREEN ADDRESS 

* AND PIXEL MASK - EXIT WITH Z=l IF HIT BORDER COLOR PIXEL 

LECF1 JSR [VD9] GET SCREEN ADDRESS AND PIXEL MASK 

TFR A,B COPY PIXEL MASK IN ACCB 
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ANDB 
PSHS 
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CMPA 
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VD8 
B,A 
,X 

$01, s 
A,B,PC 



AND PIXEL MASK WITH BORDER COLOR 
SAVE MASK AND BORDER PIXEL 
TEST THE PIXEL ON THE SCREEN 
COMPARE WITH ACCB ON THE STACK 
EXIT WITH Z FLAG=1 IF MATCH 



* GO HERE TO FINISH PAINTING TO RIGHT AFTER YOU HAVE PAINTED LEFT 

LED01 STD VCD SAVE NUMBER OF PIXELS PAINTED 

LDY HOREND GET LAST HORIZONTAL START COORD 

BSR LED3A SAVE CURRENT HORIZONTAL COORD - HOREND NOW CONTAINS COORDINATE 

OF THE LEFT BORDER OF THIS HORIZONTAL LINE 

HORBEG START PAINTING TO RIGHT FROM THE LEFT PAINT START COORD 

LECC7 PAINT TOWARDS THE RIGHT 

VCD GET THE NUMBER OF PIXELS PAINTED WHEN GOING TOWARDS LEFT PIXELS 

D,X ADD NUMBER OF PAINTED GOING TOWARD THE RIGHT 

#1 ADD 1 TO PAINT COUNT TOWARD RIGHT - ACCD=LENGTH OF PAINTED LINE 



STY 

BSR 

LDX 

LEAX 

ADDD 

RTS 
BLOCKS OF DATA ARE STORED ON THE STACK SO THAT HPAINT 
CAN REMEMBER WHERE IT SHOULD GO BACK AND PAINT UP OR DOWN 
FROM THE CURRENT LINE IT IS PAINTING. THESE BLOCKS OF DATA 
REPRESENT HORIZONTAL LINES ABOVE OR BELOW THE CURRENT LINE 
BEING PAINTED AND REOUIRE SIX BYTES OF STORAGE ON THE STACK. 
THE DATA ARE AS FOLLOWS: ,S=UP7DN FLAG; 1,S=VERTICAL COORD 
OF LINE; 2 3,S=LEFT MOST HORIZONTAL COORD OF LINE; 4 5,S=LENGTH OF LINE 

SAVE A BLOCK OF PAINT DATA FOR A LINE IN THE OPPOSITE DIRECTION OF THE CURREN UP/DN FLAG 

SAVE NUMBER OF PIXELS PAINTED 
GET RETURN ADDRESS IN Y 
GET HORIZONTAL START COORD 
PUT ON STACK 
GET UP/DN FLAG 
REVERSE IT 

GET VERTICAL START COORDINATE 
SAVE VERTICAL START COORD AND UP/DN FLAG 
PUT BACK RETURN ADDRESS 
GET NUMBER OF FREE BYTES TO CHECK FOR 
GO SEE IF THERE IS ENOUGH RAM 
GET LENGTH OF RIGHT PAINTED LINE 



SAVE THE LENGTH OF RIGHT HORIZONTAL PAINTED LINE 

SAVE RETURN ADDRESS IN Y 

GET HORIZONTAL START COORD 

SAVE START COORD AND LENGTH 

GET UP/DN FLAG (1 OR -1) 

SAVE THE PAINT DATA ON THE STACK 

GET CURRENT HORIZONTAL COORD 

SAVE IT 



MOVE THE STACK POINTER DOWN ACCB BYTES 
■14) COMPARE TO THE BOTTOM OF THE STACK AREA - THE 14 EXTRA BYTES ARE 

GENERATED BY THE FACT THAT THE SEVEN INTERRUPT VECTORS ARE GOTTEN FROM 

THE ROM BY THE GIME CHIP. THE 14 BYTES IN RAM ARE UNUSED BY BASIC. 

'OM' ERROR IF PAST THE BOTTOM 

MAKE ACCB POSITIVE AGAIN 

PUT THE STACK POINTER BACK WHERE IT BELONGS 

PUT THE STACK POINTER AT THE TOP OF THE TEMPORARY STACK BUFFER 
ENABLE TASK REGISTER 
GO DO AN 'OM' ERROR 

HBUFF 

THE HBUFF COMMAND WILL RESERVE SPACE IN THE HPUT/HGET BUFFER. THERE MUST BE ENOUGH FREE RAM 

IN THE BUFFER FOR THE REOUESTED BUFFER SIZE AND A FIVE BYTE HEADER. EACH BUFFER HAS A FIVE BYTE 

HEADER WHICH IS DESCRIBED AS FOLLOWS: 

BYTES 0,1: ADDRESS OF THE NEXT HPUT/HGET BUFFER IN THE BUFFER SPACE. IF ZERO, THERE ARE 

NO MORE BUFFERS IN THE BUFFER SPACE. IF $FFFF, THEN THERE ARE NO 

BUFFERS ALLOCATED AND THE ENTIRE BUFFER SPACE IS FREE. 

BYTE 2: BUFFER NUMBER; BYTES 3,4: SIZE OF THE BUFFER 



EVALUATE BUFFER NUMBER ARGUMENT; RETURN VALUE IN X 

RAM HOOK 

MAXIMUM OF 255 BUFFERS ALLOWED 

ILLEGAL FUNCTION CALL ERROR IF BUFFER NUMBER > 255 

SAVE THE BUFFER NUMBER 

DON'T GET THE SIZE OF THE BUFFER IF BUFFER SELECTED 

DO A SYNTAX CHECK FOR A COMMA 

EVALUATE THE BUFFER SIZE ARGUMENT 

SAVE THE BUFFER SIZE 

PUT BLOCK 6.4 INTO LOGICAL BLOCK 6 ($C000) OF TASK REGISTER 1 

ENABLE TASK REGISTER 1 

GET THE NEW BUFFER NUMBER 

CHECK FOR BUFFER ZERO 

BRANCH IF NOT BUFFER ZERO 

EMPTY BUFFER FLAG 

RESET BUFFER SPACE TO EMPTY 

EXIT COMMAND 

POINT TO THE START OF THE BUFFER SPACE 

GET THE FIRST TWO BYTES OF THE HEADER BLOCK (HB.ADDR) 

IS THE BUFFER EMPTY? 

NO; CHECK FOR FIRST EMPTY HEADER SPOT 

CHECK FOR ENOUGH FREE RAM IN THE BUFFER SPACE FOR THIS BUFFER 



LED15 


STD 


VCB 




PULS 


Y 




LDD 


HORBEG 




PSHS 


X,B,A 




LDA 


VD7 




NEGA 




LED20 


LDB 


VERBEG+1 




PSHS 


B,A 




PSHS 


Y 




LDB 


#$06 




JSR 


LED3F 




LDD 


VCB 




RTS 




* SAVE A BLOCK 


OF PAINT DA 


LED2E 


STD 


VCB 




PULS 


Y 




LDD 


HOREND 




PSHS 


X,B,A 




LDA 


VD7 




BRA 


LED20 


LED3A 


LDX 


HORBEG 




STX 


HOREND 




RTS 




* CHECK 


ACCB (ONLY 0-127) 


LED3F 


NEGB 






LEAS 


B,S 




CMPS 


#TMPSTACK-(: 




LBCS 


LED4E 




NEGB 






LEAS 


B,S 




RTS 




LED4E 


LDS 


#TMPSTACK-2 




JSR 


SELTASK0 




JMP 


LAC44 



* HBUFF 






HBUFF 


JSR 


LB73D 




LBRN 


RAMLINK 




CMPX 


#255 




LBHI 


ILLFUNC 




STX 


VD1 




BEQ 


LED72 




JSR 


SYNCOMMA 




JSR 


LB73D 




STX 


VD3 


LED72 


JSR 


LE0CB 




JSR 


SELTASK1 




LDD 


VD1 




TSTB 






BNE 


LED85 




LDD 


#$FFFF 




STD 


HRESBUFF 




BRA 


LEDBD 


LED85 


LDY 


#HRESBUFF 




LDD 


,Y 




CMPD 


#$FFFF 




BNE 


LED95 




BSR 


LEDC4 
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ORIGIN:SPECTRAL ASSOC 
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2305 


ED93 


20 


IB 




2306 


ED95 


D6 


D2 




2307 


ED97 


El 


22 




2308 


ED99 


27 


37 




2309 


ED9B 


EE 


A4 




2310 


ED9D 


27 


04 




2311 


ED9F 


IF 


32 




2312 


EDA1 


20 


F4 




2313 


EDA3 


IF 


23 




2314 


EDA5 


EC 


23 




2315 


EDA7 


31 


25 




2316 


EDA9 


31 


AB 




2317 


EDAB 


8D 


17 




2318 


EDAD 


10 


AF 


C4 


2319 


EDB0 


CC 


00 


00 


2320 


EDB3 


ED 


A4 




2321 


EDB5 


D6 


D2 




2322 


EDB7 


E7 


22 




2323 


EDB9 


DC 


[13 




2324 


EDBB 


ED 


23 




2325 


EDBD 


BD 


E0 


FF 


2326 


EDC0 


BD 


E0 


97 


2327 


EDC3 


39 






2328 


EDC4 


IF 


21 




2329 


EDC6 


30 


05 




2330 


EDC8 


DC 


D3 




2331 


EDCA 


30 


8B 




2332 


EDCC 


8C 


DF 


00 


2333 


EDCF 


22 


05 




2334 


EDD1 


39 






2335 


EDD2 


C6 


12 




2336 


EDD4 


20 


02 




2337 


EDD6 


C6 


0C 




2338 


EDD8 


10 


CE 


DF FD 


2339 


EDDC 


BD 


E0 


FF 


2340 


EDDF 


BD 


E0 


97 


2341 


EDE2 


7E 


AC 


46 


2342 










2343 










2344 


EDE5 


8E 


EE 


C0 


2345 


EDE8 


9F 


D5 




2346 


EDEA 


5F 






2347 


EDEB 


20 


07 




2348 










2349 










2350 


EDED 


8E 


EE 


EF 


2351 


EDF0 


9F 


D5 




2352 


EDF2 


C6 


01 




2353 


EDF4 


0D 


E6 




2354 


EDF6 


10 


27 


F8 F5 


2355 


EDFA 


10 


21 


12 02 


2356 


EDFE 


D7 


D8 




2357 


EE00 


81 


40 




2358 


EE02 


26 


02 




2359 


EE04 


9D 


9F 




2360 


EE06 


BD 


E9 


El 


2361 


EE09 


BD 


B2 


6D 


2362 


EE0C 


BD 


B7 


0B 


2363 


EE0F 


D7 


D3 




2364 


EE11 


0F 


D4 




2365 


EE13 


9D 


A5 




2366 


EE15 


27 


21 




2367 


EE17 


03 


D4 




2368 


EE19 


BD 


B2 


6D 


2369 


EE1C 


0D 


D8 




2370 


EE1E 


26 


03 




2371 


EE20 


16 


C4 


54 


2372 


EE23 


C6 


05 




2373 


EE25 


8E 


EE 


E0 


2374 


EE28 


EE 


81 




2375 


EE2A 


Al 


80 




2376 


EE2C 


27 


06 




2377 


EE2E 


5A 






2378 


EE2F 


26 


F7 




2379 


EE31 


7E 


B2 


77 


2380 


EE34 


DF 


D5 




2381 


EE36 


9D 


9F 




2382 


EE38 


BD 


E0 


CB 


2383 


EE3B 


BD 


El 


19 


2384 


EE3E 


D6 


D3 




2385 


EE40 


BD 


EF 


18 


2386 


EE43 


DC 


BD 




2387 


EE45 


10 


93 


C3 


2388 


EE48 


2F 


06 




2389 


EE4A 


9E 


C3 




2390 


EE4C 


9F 


BD 




2391 


EE4E 


DD 


C3 




2392 


EE50 


DC 


BF 




2393 


EE52 


10 


93 


C5 


2394 


EE55 


2F 


06 




2395 


EE57 


9E 


C5 




2396 


EE59 


9F 


BF 




2397 


EE5B 


DD 


C5 




2398 










2399 


EE5D 


96 


E6 




2400 


EE5F 


C6 


F8 







BRA 


LEDB0 


LED95 


LDB 


VD1+1 


LED97 


CMPB 


$02, Y 




BEQ 


LEDD2 




LDU 


,Y 




BEQ 


LEDA3 




TFR 


U,Y 




BRA 


LED97 


LEDA3 


TFR 


Y,U 




LDD 


$03, Y 




LEAY 


$05, Y 




LEAY 


D,Y 




BSR 


LEDC4 




STY 


,u 


LEDB0 


LDD 


#0 




STD 


,Y 




LDB 


VD1+1 




STB 


$02, Y 




LDD 


VD3 




STD 


$03, Y 


LEDBD 


JSR 


SELTASK0 




JSR 


SETMMU 




RTS 




LEDC4 


TFR 


Y,X 




LEAX 


$05, X 




LDD 


VD3 




LEAX 


D,X 




CMPX 


#HRESBUFF+$1F00 




BHI 


LEDD6 




RTS 




LEDD2 


LDB 


#9*2 




BRA 


LEDD8 


LEDD6 


LDB 


#6*2 


LEDD8 


LDS 


#TMPSTACK-2 




JSR 


SELTASK0 




JSR 


SETMMU 




JMP 


LAC46 


* HGET 






HGET 


LDX 


#LEEC0 




STX 


VD5 




CLRB 






BRA 


LEDF4 


* HPUT 






HPUT 


LDX 


#LEEEF 




STX 


VD5 




LDB 


#$01 


LEDF4 


TST 


HRMODE 




LBEQ 


LE6EF 




LBRN 


RAMLINK 




STB 


VD8 




CMPA 


#'6' 




BNE 


LEE06 




JSR 


GETNCH 


LEE06 


JSR 


LE9E1 




JSR 


SYNCOMMA 




JSR 


EVALEXPB 




STB 


VD3 




CLR 


VD4 




JSR 


GETCCH 




BEQ 


LEE38 




COM 


VD4 




JSR 


SYNCOMMA 




TST 


VD8 




BNE 


LEE23 




LBRA 


LB277 


LEE23 


LDB 


#$05 




LDX 


#LEEE0 


LEE28 


LDU 


,x++ 




CMPA 


,x+ 




BEQ 


LEE34 




DECB 






BNE 


LEE28 




JMP 


LB277 


LEE34 


STU 


VD5 




JSR 


GETNCH 


LEE38 


JSR 


LE0CB 




JSR 


SELTASK1 




LDB 


VD3 




JSR 


LEF18 




LDD 


HORBEG 




CMPD 


HOREND 




BLE 


LEE50 




LDX 


HOREND 




STX 


HORBEG 




STD 


HOREND 


LEE50 


LDD 


VERBEG 




CMPD 


VEREND 




BLE 


LEE5D 




LDX 


VEREND 




STX 


VERBEG 




STD 


VEREND 


* ROUND 


OFF THE HORIZONTAL STAi 


LEE5D 


LDA 


HRMODE 




LDB 


#$F8 



GET THE BUFFER NUMBER 

COMPARE TO THE BUFFER NUMBER OF THE CURRENT HEADER (HB.NUM) 

RE-DIMENSIONED ARRAY (DD) ERROR IF THE SAME 

GET THE ADDRESS OF THE NEXT BUFFER 

BRANCH IF THIS IS THE LAST HEADER 

POINT Y TO THE START OF THE NEXT BUFFER HEADER 

KEEP SEARCHING FOR THE LAST HEADER 

SAVE THE START ADDRESS OF THE LAST HEADER IN U 

GET THE SIZE OF THE LAST HEADER (HB.SIZE) 

SKIP PAST THE HEADER DATA (HB.LEN) 

NOW Y POINTS TOT THE START OF FREE BUFFER SPACE 

CHECK FOR ENOUGH FREE RAM IN THE BUFFER SPACE FOR THIS BUFFER 

SAVE THE ADDRESS OF THIS HEADER IN THE PREVIOUS HEADER 

LAST ENTRY FLAG 

MAKE THIS HEADER THE LAST ENTRY 

GET THE BUFFER NUMBER AND 

SAVE IT IN THE HEADER 

GET THE SIZE OF THE BUFFER AND 

SAVE IT IN THE HEADER TOO 

ENABLE TASK REGISTER 

RESET MMU REGISTERS 

USE X A TEMPORARY POINTER TO THE START OF BUFFER 

SKIP PAST THE HEADER 

GET THE SIZE OF THE BUFFER AND 

ADD IT TO THE BUFFER POINTER WHICH NOW POINTS TO THE BUFFER END 

PAST THE END OF THE BUFFER SPACE? 

'OM' ERROR IF PAST END OF BUFFER SPACE 

REDIMENSIONED ARRAY ERROR (DD) 

OUT OF MEMORY ERROR (OM) 

RESET THE STACK TO TEMPORARY LOCATON 

ENABLE TASK REGISTER 

RESET THE MMU REGISTERS 

JUMP TO THE ERROR HANDLER 



POINT X TO THE HGET MOVEMENT ROUTINE 
SAVE THE MOVEMENT ROUTINE ADDRESS 
HGET FLAG 



HPUT MOVEMENT ROUTINE ADDRESS 
SAVE THE MOVEMENT ROUTINE ADDRESS 
HPUT FLAG 

IS THE HI-RES GRAPHICS MODE ENABLED? 
'HR' ERROR IF NOT IN HI-RES MODE 
RAM HOOK 

SAVE THE GET7PUT FLAG 
ALLOW HGETS, HPUT8 AS LEGAL SYNTAX 
BRANCH IF NOT 

GET THE NEXT CHARACTER FROM BASIC'S INPUT LINE IF 
EVALUATE THE RECTANGLE BOUNDS 
SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB 
SAVE THE BUFFER NUMBER 

SET THE ACTION FLAG TO SHOW AN ACTION SPECIFIED 
GET BASIC'S CURRENT INPUT CHARACTER 
BRANCH IF END OF LINE - NO ACTION SPECIFIED 
SET THE ACTION FLAG TO SHOW THAT AN ACTION WAS SPECIFIED 
SYNTAX CHECK FOR COMMA 
CHECK THE GET7PUT FLAG 
BRANCH IF PUT 

'SYNTAX' ERROR - HGET MAY NOT SPECIFY AN ACTION 
FIVE POSSIBLE ACTIONS 
POINT TO THE ACTION ROUTINE ADDRESS 
GET THE ACTION ROUTINE ADDRESS 

COMPARE THE DESIRED ACTION TO THIS ROUTINE'S TOKEN 
SEARCH NO MORE - A MATCH WAS FOUND 
DECREMENT COUNTER 
LOOP UNTIL ALL ACTIONS CHECKED 
•SYNTAX' ERROR IF ILLEGAL ACTION DESIRED 
SAVE THE ACTION ADDRESS 
GET A CHARACTER FROM BASIC'S INPUT LINE 

PUT THE HBUFF BLOCK INTO LOGICAL ADDRESS SPACE OF TASK REGISTER 1 
SELECT TASK REGISTER 1 
GET THE BUFFER NUMBER 

GET THE START AND END OF THIS BUFFER'S DATA 
GET THE STARING HORIZONTAL COORDINATE 
COMPARE IT TO THE ENDING COORDINATE 
BRANCH IF START <= END COORDINATE 
GET THE ENDING COORDINATE 
SAVE IT AS THE STARTING COORDINATE 

NOW SAVE THE STARTING COORDINATE AS THE ENDING COORDINATE 
GET THE VERTICAL STARTING COORDINATE 
COMPARE IT TO THE ENDING COORDINATE 
BRANCH IF START <= END COORDINATE 
GET THE ENDING COORDINATE 
SAVE IT AS THE STARTING COORDINATE 

NOW SAVE THE STARTING COORDINATE AS THE ENDING COORDINATE 
START AND END COORDINATES TO AN EVEN NUMBER OF BYTES 
GET THE HI-RES GRAPHICS MODE 
ROUND OFF MASK FOR HSCREEN 3 (EIGHT PIXELS PER BYTE) 



WAS THERE 
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2401 


EE61 


81 


03 






CMPA 


#$03 




2402 


EE63 


27 


08 






BEQ 


LEE6D 




2403 


EE65 


C6 


FC 






LDB 


#$FC 




2404 


EE67 


81 


02 






CMPA 


#$02 




2405 


EE69 


26 


02 






BNE 


LEE6D 




2406 


EE6B 


C6 


FE 






LDB 


#$FE 




2407 


EE6D 


IF 


98 




LEE6D 


TFR 


B,A 




2408 


EE6F 


94 


BE 






ANDA 


HORBEG+1 




2409 


EE71 


97 


BE 






STA 


HORBEG+1 




2410 


EE73 


D4 


C4 






ANDB 


HOREND+1 




2411 


EE75 


D7 


C4 






STB 


HOREND+1 




2412 


EE77 


BD 


E9 


DB 




JSR 


LE9DB 




2413 


EE7A 


DD 


C3 






STD 


HOREND 




2414 


EE7C 


BD 


E9 


CD 




JSR 


LE9CD 




2415 


EE7F 


C3 


00 


01 




ADDD 


#1 




2416 


EE82 


DD 


C5 






STD 


VEREND 




2417 


















2418 










* CONVERT THE 


HORIZONTAL DIFFERENCE (IN PIXELS) 


2419 


EE84 


96 


E6 






LDA 


HRMODE 




2420 


EE86 


81 


02 






CMPA 


#$02 




2421 


EE88 


27 


0C 






BEQ 


LEE96 




2422 


EE8A 


81 


03 






CMPA 


#$03 




2423 


EE8C 


26 


04 






BNE 


LEE92 




2424 


EE8E 


04 


C3 






LSR 


HOREND 




2425 


EE90 


06 


C4 






ROR 


HOREND+1 




2426 


EE92 


04 


C3 




LEE92 


LSR 


HOREND 




2427 


EE94 


06 


C4 






ROR 


HOREND+1 




2428 


EE96 


04 


C3 




LEE96 


LSR 


HOREND 




2429 


EE98 


06 


C4 






ROR 


HOREND+1 




2430 


EE9A 


DC 


C3 






LDD 


HOREND 




2431 


EE9C 


C3 


00 


01 




ADDD 


#1 




2432 


EE9F 


DD 


C3 






STD 


HOREND 




2433 


EEA1 


BD 


E7 


DA 




JSR 


HCALPOS 




2434 


EEA4 


10 


9E 


D5 




LDV 


VD5 




2435 


EEA7 


D6 


C4 




LEEA7 


LDB 


HOREND+1 




2436 


EEA9 


34 


10 






PSHS 


X 




2437 


EEAB 


AD 


A4 




LEEAB 


JSR 


,V 




2438 


EEAD 


5A 








DECB 






2439 


EEAE 


26 


FB 






BNE 


LEEAB 




2440 


EEB0 


35 


10 






PULS 


X 




2441 


EEB2 


BD 


EA 


45 




JSR 


LEA45 




2442 


EEB5 


0A 


C6 






DEC 


VEREND+1 




2443 


EEB7 


26 


EE 






BNE 


LEEA7 




2444 


EEB9 


BD 


E0 


FF 




JSR 


SELTASK0 




2445 


EEBC 


BD 


E0 


97 




JSR 


SETMMU 




2446 


EEBF 


39 








RTS 






2447 


















2448 










* HGET 


S BYTE 


MOVEMENT ROUTINE 




2449 


EEC0 


A6 


80 




LEEC0 


LDA 


,x+ 




2450 


EEC2 


8D 


03 






BSR 


LEEC7 




2451 


EEC4 


A7 


C4 






STA 


,u 




2452 


EEC6 


39 








RTS 






2453 


EEC7 


DE 


CF 




LEEC7 


LDU 


VCF 




2454 


EEC9 


33 


41 






LEAU 


$01, U 




2455 


EECB 


DF 


CF 






STU 


VCF 




2456 


EECD 


11 


93 


Dl 




CMPU 


VD1 




2457 


EED0 


22 


01 






BHI 


LEED3 




2458 


EED2 


39 








RTS 






2459 


EED3 


10 


CE 


DF FD 


LEED3 


LDS 


#TMPSTACK-2 




2460 


EED7 


BD 


E0 


FF 




JSR 


SELTASK0 




2461 


EEDA 


BD 


E0 


97 




JSR 


SETMMU 




2462 


EEDD 


7E 


B4 


4A 




JMP 


ILLFUNC 




2463 


















2464 


EEE0 


EE 


EF 




LEEE0 


FDB 


LEEEF 




2465 


EEE2 


BD 






LEEE2 


FCB 


$BD 




2466 


EEE3 


EE 


F6 




LEEE3 


FDB 


LEEF6 




2467 


EEE5 


BE 






LEEE5 


FCB 


$BE 




2468 


EEE6 


EF 


07 




LEEE6 


FDB 


LEF07 




2469 


EEE8 


Bl 






LEEE8 


FCB 


$B1 




2470 


EEE9 


EE 


FE 




LEEE9 


FDB 


LEEFE 




2471 


EEEB 


B0 






LEEEB 


FCB 


$B0 




2472 


EEEC 


EF 


10 




LEEEC 


FDB 


LEF10 




2473 


EEEE 


A8 






LEEEE 


FCB 


$A8 




2474 


















2475 










* HPUT 


S MOVEMENT ROUTINES 




2476 










* PSET 


(DEFAULT ROUTINE) 




2477 


EEEF 


8D 


D6 




LEEEF 


BSR 


LEEC7 




2478 


EEF1 


A6 


C4 






LDA 


,u 




2479 


EEF3 


A7 


80 






STA 


,x+ 




2480 


EEF5 


39 








RTS 






2481 










* PRESET 






2482 


EEF6 


8D 


CF 




LEEF6 


BSR 


LEEC7 




2483 


EEF8 


A6 


C4 






LDA 


,u 




2484 


EEFA 


43 








COMA 






2485 


EEFB 


A7 


80 






STA 


,x+ 




2486 


EEFD 


39 








RTS 






2487 










* AND 








2488 


EEFE 


8D 


C7 




LEEFE 


BSR 


LEEC7 




2489 


EF00 


A6 


C4 






LDA 


,u 




2490 


EF02 


A4 


84 






ANDA 


,x 




2491 


EF04 


A7 


80 






STA 


,x+ 




2492 


EF06 


39 








RTS 






2493 










* OR 








2494 


EF07 


8D 


BE 




LEF07 


BSR 


LEEC7 




2495 


EF09 


A6 


C4 






LDA 


,u 




2496 


EF0B 


AA 


84 






ORA 


,x 





HSCREEN 3? 

ROUND OFF MASK FOR HSCREEN 1 OR 4 (FOUR PIXELS PER BYTE) 

HSCREEN 2? 

NO IT'S HSCREEN 1 OR 4 

ROUND OFF MASK FOR HSCREEN 2 (TWO PIXELS PER BYTE) 

SAVE MASK IN BOTH ACCA AND ACCB 

ROUND OFF HORIZONTAL START COORDINATE 

SAVE NEW START COORDINATE 

ROUND OFF HORIZONTAL END COORDINATE 

SAVE NEW END COORDINATE 

CALCULATE THE DIFFERENCE BETWEEN THE HORIZONTAL START AND END 

SAVE THE HORIZONTAL DIFFERENCE 

CALCULATE THE DIFFERENCE BETWEEN THE VERTICAL START AND END 

ADD ONE TO THE VERTICAL DIFFERENCE (INCLUSIVE START AND END) 

SAVE THE VERTICAL DIFFERENCE 

INTO A BYTE DIFFERENCE 
GET THE HI-RES GRAPHICS MODE 
HSCREEN 2? 

YES; DIVIDE PIXEL COUNT BY TWO (TWO PIXELS PER BYTE) 
HSCREEN 3? 

NO; DIVIDE PIXEL COUNT BY FOUR (FOUR PIXELS PER BYTE) 
* HSCREEN 3; DIVIDE PIXEL COUNT BY EIGHT (EIGHT PIXELS PER BYTE) 
DIVIDE THE HORIZONTAL DIFFERENCE BY 2 

DIVIDE THE HORIZONTAL DIFFERENCE BY 2 

DIVIDE THE HORIZONTAL DIFFERENCE BY 2 

ADD ONE TO THE HORIZONTAL DIFFERENCE (INCLUSIVE START AND END) 

SAVE THE HORIZONTAL DIFFERENCE 

POINT X TO THE FIRST BYTE TO MOVE 

POINT Y TO THE ACTION ADDRESS 

GET THE LS BYTE OF HORIZONTAL DIFFERENCE 

SAVE THE MOVEMENT POINTER 

PERFORM THE APPROPRIATE MOVEMENT ACTION 

DECREMENT THE HORIZONTAL MOVEMENT COUNTER 

LOOP UNTIL ALL BYTES ON THIS ROW MOVED 

RESTORE THE MOVEMENT POINTER 

MOVE THE MOVEMENT POINTER DOWN ONE ROW 

DECREMENT THE VERTICAL DIFFERENCE (ROW COUNTER) 

LOOP UNTIL ALL ROWS MOVED 

SELECT TASK REGISTER AS THE ACTIVE TASK 

SET UP THE MMU REGISTERS 

WHY NOT MAKE THE JSR ABOVE A JMP 



GET A BBYTE FROM THE HI-RES SCREEN 
POINT U TO PROPER BUFFER LOCATION 
SAVE THE BYTE IN THE BUFFER 

GET THE BUFFER POINTER 

BUMP IT UP BY ONE 

SAVE IT 

COMPARE THE NEW POINTER TO THE END OF THE BUFFER SPACE 

'FC FUNCTION CALL ERROR IF PAST THE END OF THE BUFFER 

RESET THE TEMPORARY STACK POINTER 
SELECT TASK REGISTER AS THE ACTIVE TASK 
SET UP THE MMU REGISTERS 
ILLEGAL FUNCTION CALL ERROR 

ADDRESS OF PSET ACTION ROUTINE 

TOKEN FOR PSET 

ADDRESS OF PRESET ACTION ROUTINE 

TOKEN FOR PRESET 

ADDRESS OF OR ACTION ROUTINE 

TOKEN FOR OR 

ADDRESS OF AND ACTION ROUTINE 

TOKEN FOR AND 

ADDRESS OF NOT ACTION ROUTINE 

TOKEN FOR NOT 



POINT U TO THE PROPER BUFFER LOCATION 
GET A BYTE FROM THE BUFFER 
PUT IT BACK ON THE SCREEN 



POINT U TO THE PROPER BUFFER LOCATION 
GET A BYTE FROM THE BUFFER 



PUT IT BACK ON THE SCREEN 



POINT U TO THE PROPER BUFFER LOCATION 
GET A BYTE FROM THE BUFFER 
'AND' IT WITH THE SCREEN DATA 
PUT IT BACK ON THE SCREEN 



POINT U TO THE PROPER BUFFER LOCATION 
GET A BYTE FROM THE BUFFER 
•OR' IT WITH THE SCREEN DATA 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



2497 


EF0D 


A7 


80 




2498 


EF0F 


39 






2499 










2500 


EF10 


8D 


B5 




2501 










2502 


EF12 


A6 


84 




2503 


EF14 


43 






2504 


EF15 


A7 


80 




2505 


EF17 


39 






2506 










2507 


EF18 


10 


8E 


C0 00 


2508 


EF1C 


A6 


A4 




2509 


EF1E 


81 


FF 




2510 


EF20 


26 


0A 




2511 


EF22 


7E 


EE 


D3 


2512 


EF25 


10 


AE 


A4 


2513 


EF28 


10 


27 


FF A7 


2514 


EF2C 


El 


22 




2515 


EF2E 


26 


F5 




2516 


EF30 


EC 


23 




2517 


EF32 


31 


24 




2518 


EF34 


10 


9F 


CF 


2519 


EF37 


31 


21 




2520 


EF39 


31 


AB 




2521 


EF3B 


10 


9F 


Dl 


2522 


EF3E 


39 






2523 










2524 










2525 


EF3F 


0D 


E6 




2526 


EF41 


10 


27 


F7 AA 


2527 


EF45 


10 


21 


10 B7 


2528 


EF49 


BD 


B2 


6A 


2529 


EF4C 


BD 


E7 


B2 


2530 


EF4F 


BD 


B2 


67 


2531 


EF52 


BD 


B2 


6D 


2532 


EF55 


BD 


Bl 


56 


2533 


EF58 


0D 


06 




2534 


EF5A 


26 


06 




2535 


EF5C 


BD 


BD 


D9 


2536 


EF5F 


BD 


B5 


16 


2537 


EF62 


BD 


B6 


57 


2538 


EF65 


F7 


FE 


18 


2539 


EF68 


10 


8E 


FE 19 


2540 


EF6C 


5A 






2541 


EF6D 


2B 


06 




2542 


EF6F 


A6 


80 




2543 


EF71 


A7 


A0 




2544 


EF73 


20 


F7 




2545 


EF75 


96 


E6 




2546 


EF77 


C6 


28 




2547 


EF79 


81 


03 




2548 


EF7B 


25 


02 




2549 


EF7D 


C6 


50 




2550 


EF7F 


4F 






2551 


EF80 


93 


BD 




2552 


EF82 


2B 


7D 




2553 


EF84 


Fl 


FE 


18 


2554 


EF87 


22 


05 




2555 


EF89 


F7 


FE 


18 


2556 


EF8C 


27 


73 




2557 


EF8E 


86 


17 




2558 


EF90 


91 


C0 




2559 


EF92 


2C 


02 




2560 


EF94 


97 


C0 




2561 


EF96 


BD 


F0 


8C 


2562 


EF99 


BD 


E7 


DA 


2563 


EF9C 


10 


8E 


FE 19 


2564 


EFA0 


F6 


FE 


18 


2565 


EFA3 


A6 


A4 




2566 


EFA5 


84 


7F 




2567 


EFA7 


80 


20 




2568 


EFA9 


2A 


02 




2569 


EFAB 


86 


00 




2570 


EFAD 


A7 


A0 




2571 


EFAF 


5A 






2572 


EFB0 


2E 


Fl 




2573 


EFB2 


96 


E6 




2574 


EFB4 


4A 






2575 


EFB5 


48 






2576 


EFB6 


10 


8E 


F0 02 


2577 


EFBA 


10 


AE 


A6 


2578 


EFBD 


10 


9F 


Dl 


2579 










2580 










2581 


EFC0 


86 


08 




2582 


EFC2 


97 


D3 




2583 


EFC4 


10 


8E 


FE 19 


2584 


EFC8 


CE 


F0 


9D 


2585 


EFCB 


F6 


FE 


0A 


2586 


EFCE 


BD 


E7 


42 


2587 


EFD1 


D7 


B5 




2588 


EFD3 


BD 


El 


19 


2589 


EFD6 


B6 


FE 


18 


2590 


EFD9 


34 


32 




2591 


EFDB 


E6 


A0 




2592 


EFDD 


4F 









STA 


,x+ 




RTS 




* NOT 






LEF10 


BSR 


LEEC7 


* THIS 


IS A MAJOR BUG - 




LDA 


,x 




COMA 






STA 


,x+ 




RTS 




LEF18 


LDY 


#HRESBUFF 




LDA 


,Y 




CMPA 


#$FF 




BNE 


LEF2C 




JMP 


LEED3 


LEF25 


LDY 


,Y 




LBEQ 


LEED3 


LEF2C 


CMPB 


$02, Y 




BNE 


LEF25 




LDD 


$03, Y 




LEAY 


$04, Y 




STY 


VCF 




LEAY 


$01, Y 




LEAY 


D,Y 




STY 


VD1 




RTS 




* HPRINT 




HPRINT 


TST 


HRMODE 




LBEQ 


LE6EF 




LBRN 


RAMLINK 




JSR 


LB26A 




JSR 


LE7B2 




JSR 


LB267 




JSR 


SYNCOMMA 




JSR 


LB156 




TST 


VALTYP 




BNE 


LEF62 




JSR 


LBDD9 




JSR 


LB516 


LEF62 


JSR 


LB657 




STB 


H.PCOUNT 




LDY 


#H.PBUF 


LEF6C 


DECB 






BMI 


LEF75 




LDA 


,x+ 




STA 


,Y+ 




BRA 


LEF6C 


LEF75 


LDA 


HRMODE 




LDB 


#40 




CMPA 


#$03 




BCS 


LEF7F 




LDB 


#80 


LEF7F 


CLRA 






SUBD 


HORBEG 




BMI 


LF001 




CMPB 


H.PCOUNT 




BHI 


LEF8E 




STB 


H.PCOUNT 




BEQ 


LF001 


LEF8E 


LDA 


#ROWMAX-l 




CMPA 


VERBEG+1 




BGE 


LEF96 




STA 


VERBEG+1 


LEF96 


JSR 


LF08C 




JSR 


HCALPOS 




LDY 


#H.PBUF 




LDB 


H.PCOUNT 


LEFA3 


LDA 


,Y 




ANDA 


#$7F 




SUBA 


#$20 




BPL 


LEFAD 




LDA 


#$00 


LEFAD 


STA 
DECB 


,Y+ 




BGT 


LEFA3 




LDA 


HRMODE 




DECA 






ALSA 






LDY 


#LF002 




LDY 


A,Y 




STY 


VD1 


* THIS 


SECTION 


OF CODE W 




LDA 


#$08 




STA 


VD3 




LDY 


#H.PBUF 




LDU 


#LF09D 




LDB 


H.FCOLOR 




JSR 


PIXELFIL 




STB 


ALLCOL 




JSR 


SELTASK1 




LDA 


H.PCOUNT 


LEFD9 


PSHS 


Y,X,A 


LEFDB 


LDB 
CLRA 


,Y+ 



SHOULD BE LDA ,U 



PUT IT BACK ON THE SCREEN 



POINT U TO THE PROPER BUFFER LOCATION 

GET A BYTE FROM THE SCREEN, SHOULD BE FROM THE BUFFER 

COMPLEMENT THE BYTE 

PUT IT BACK ON THE SCREEN 



POINT Y TO THE START OF THE BUFFER SPACE 

GET THE FIRST BYTE 

ARE ANY BUFFERS ACTIVE? 

YES, SEARCH FOR THE CORRECT BUFFER 

•FC' ERROR IF NO BUFFERS ACTIVE 

SKIP TO NEXT BUFFER 

'FC ERROR IF THERE ARE NO MORE ACTIVE BUFFERS 

COMPARE THE DESIRED BUFFER TO THE CURRENT BUFFER NUMBER 

NO, MATCH, CHECK THE NEXT BUFFER 

GET THE SIZE OF THE SELECTED BUFFER 

SKIP TO ONE BYTE BEFORE THE START BUFFER DATA 

SAVE THE START OF THE BUFFER DATA 

MOVE TO THE ACTUAL START OF DATA 

ADD IN THE SIZE OF THE DATA 

SAVE THE ADDRESS OF THE END OF THE DATA 



CHECK THE HI-RES GRAPHICS MODE 

•HR' ERROR IF NOT HI-RES GRAPHICS MODE 

RAM HOOK 

SYNTAX CHECK FOR '(' 

EVALUATE HORIZONTAL AND VERTICAL COORDINATE 

SYNTAX CHECK FOR ')' 

SYNTAX CECK FOR COMMA 

EVALUATE EXPRESSION 

CHECK THE TYPE OF VARIABLE EVALUATED 

BRANCH IF NOT NUMERIC - REALLY SHOULD BE BMI 

CONVERT FLOATING POINT NUMBER INTO A STRING 

SAVE THE STRING IN STRING SPACE 

CALCULATE THE LENGTH AND ADDRESS OF THE STRING 

SAVE THE LENGTH OF THE STRING 

POINT TO THE HPRINT BUFFER 

DECREMENT THE CHARACTER COUNT 

BRANCH IF ALL CHARACTERS PRINTED 

GET A CHARACTER FROM THE STRING 

SAVE IT IN THE HPRINT BUFFER 

KEEP GOING UNTIL DONE 

GET THE HI-RES GRAPHICS MODE 

40 CHARACTERS MAX IN THE 320 PIXEL WIDE MODE 

CHECK THE HSCREEN MODE 

BRANCH IF 40 COLUMN RESOLUTION 

80 CHARACTERS MAX IN THE 640 PIXEL WIDE MODE 

CLEAR THE MOST SIGNIFICANT BYTE OF ACCD 

SUBTRACT THE HORIZONTAL PRINT POSITION 

EXIT IF HORIZONTAL PRINT POSITION > LINE LENGTH 

IS THE PRINT CHARACTER COUNT > LINE LENGTH? 

BRANCH IF NOT 

FORCE THE PRINT CHARACTER COUNT TO EQUAL THE LINE LENGTH 

EXIT IF LINE LENGTH = 

GET THE HIGHEST POSSIBLE ROW NUMBER 

AND COMPARE IT TO THE PRINT ROW 

BRANCH IF PRINTING ON A LEGAL ROW NUMBER 

PRINT ON BOTTOM ROW (HIGHEST NUMBER) IF ILLEGAL ROW SPECIFIED 

ADJUST ROW AND COLUMN NUMBERS FOR PRINTING ON HI-RES SCREEN 

POINT X TO THE SCREEN ADDRESS; ACCA = PIXEL MASK 

POINT TO THE HPRINT BUFFER 

GET THE NUMBER OF CHARACTERS IN THE PRINT BUFFER 

GET A CHARACTER FROM THE PRINT BUFFER 

MASK OFF THE GRAPHICS BIT (BIT 7) 

SUBTRACT OUT THE CONTROL CODES 

BRANCH IF IT WAS NOT A CONTROL CODE 

FORCE A CONTROL CODE TO PRINT A BLANK 

PUT THE 'MASSAGED' CHARACTER BACK INTO THE BUFFER 

BUMP CHARACTER DOWN ONE 

LOOP UNTIL ALL CHARACTERS DONE 

GET THE HI-RES GRAPHICS MODE 

CONVERT 1-4 TO 0-3 

MULTIPLY BY TWO - THE LOOKUP TABLE HAS TWO BYTES/ENTRY 

POINT TO THE CHARACTER PRINT ROUTINE ADDRESS TABLE 

GET THE ADDRESS OF THE CHARACTER PRINT ROUTINE 

AND SAVE IT IN VD1 

PRINT THE BUFFER TO THE HI-RES SCREEN 

8 ROWS PER HI-RES CHARACTER 

TEMP SAVE THE ROW COUNTER 

POINT TO THE PRINT BUFFER 

POINT TO THE HI-RES CHARACTER GENERATOR 'ROM' 

GET THE FOREGROUND COLOR 

FILL ACCB WITH ALL FOREGROUND COLOR PIXELS 

SAVE THE PIXEL-FILLED BYTE 

SWITCH IN TASK REGISTER 1 

GET THE CHARACTER COUNT 

GET A CHARACTER FROM THE PRINT BUFFER 
CLEAR THE MOST SIGNIFICANT BYTE OF ACCD 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 





ALSB 






ALSB 






ROLA 






ALSB 






ROLA 






LDA 


D,U 




JSR 


[VD1] 




DEC 


H.PCOUNT 




BGT 


LEFDB 




PULS 


A,X,V 




DEC 


VD3 




BEQ 


LEFFE 




STA 


H.PCOUNT 




LEAH 


$01, U 




JSR 


LEA45 




BRA 


LEFD9 


LEFFE 


JSR 


SELTASK0 


LF001 


RTS 





* TABLE OF ADDRESSES OF HI-RES PRINT DRIVERS 
LF002 FDB LF01A 
LF004 FDB LF045 
LF006 FDB LF00A 
LF008 FDB LF01A 



EFDE 58 

EFDF 58 

EFE0 49 

EFE1 58 

EFE2 49 

EFE3 A6 CB 

EFE5 AD 9F 00 

EFE9 7A FE 18 

EFEC 2E ED 

EFEE 35 32 

EFF0 0A D3 

EFF2 27 0A 

EFF4 B7 FE 18 

EFF7 33 41 

EFF9 BD EA 45 

EFFC 20 DB 

EFFE BD E0 FF 

F001 39 



F002 F0 1A 

F004 F0 45 

F006 F0 0A 

F008 F0 1A 



F00A 34 02 

F00C 43 

F00D A4 84 

F00F A7 84 

F011 35 02 

F013 94 B5 

F015 AA 84 

F017 A7 80 

F019 39 



F01A 34 20 

F01C 10 8E F0 35 

F020 IF 89 

F022 44 

F023 44 

F024 44 

F025 44 

F026 A6 A6 

F028 BD F0 0A 

F02B C4 0F 

F02D A6 A5 

F02F BD F0 0A 

F032 35 20 

F034 39 



* FOUR COLOR PIXEL MASKS 
F035 00 03 0C 0F 30 33 LF035 FCB $00, $03 ,$0C ,$0F,$30,$33 
F03B 3C 3F C0 C3 CC CF FCB $3C ,$3F,$C0,$C3,$CC,$CF 
F041 F0 F3 FC FF FCB $F0,$F3 ,$FC ,$FF 



* MODE 


5 PRINT 


DRIVER 


LF00A 


PSHS 

COMA 


A 




ANDA 


,x 




STA 


,x 




PULS 


A 




ANDA 


ALLCOL 




ORA 


,x 




STA 


,x+ 




RTS 




* MODES 


1,4 PRINT DRI 


LF01A 


PSHS 


V 




LDV 


#LF035 




TFR 


A,B 




LSRA 






LSRA 






LSRA 






LSRA 






LDA 


A,Y 




JSR 


LF00A 




ANDB 


#$0F 




LDA 


B,Y 




JSR 


LF00A 




PULS 


V 




RTS 





F045 34 22 

F047 10 8E F0 6C 

F04B 44 

F04C 44 

F04D 44 

F04E 44 

F04F 48 

F050 EC A6 

F052 BD F0 0A 

F055 IF 98 

F057 BD F0 0A 

F05A 35 02 

F05C 84 0F 

F05E 48 

F05F EC A6 

F061 BD F0 0A 

F064 IF 98 

F066 BD F0 0A 

F069 35 20 

F06B 39 



* MODE 
LF045 



2 PRINT DRIVER 



PSHS 
LDV 

LSRA 

LSRA 

LSRA 

LSRA 

ALSA 

LDD 

JSR 

TFR 

JSR 

PULS 

ANDA 

ALSA 

LDD 

JSR 

TFR 

JSR 

PULS 

RTS 



Y,A 
#LF06C 



A,V 

LF00A 
B,A 
LF00A 
A 

#$0F 

A,Y 

LF00A 

B,A 

LF00A 



16 COLOR PIXEL MASKS - DOUBLE BYTE WIDE 



F06C 00 



0F 



FDB 



$0000,$000F,$00F0 



F072 00 FF 0F 00 0F 0F 

F078 0F F0 0F FF F0 00 

F07E F0 0F F0 F0 F0 FF 

F084 FF 00 FF 0F FF F0 

F08A FF FF 



FDB $00FF. 

FDB $0FF0. 

FDB $F00F. 

FDB $FF00. 

FDB $FFFF 



$0F00,$0F0F 
$0FFF,$F000 
$F0F0,$F0FF 
$FF0F,$FFF0 



MULTIPLY ACCD BY 8 - 8 BYTES PER CHARACTER 

GET THE FIRST BYTE OF THE GRAPHIC CHARACTER FROM THE 'ROM' 

PUT THE BYTE ON THE HI-RES SCREEN 

DECREMENT CHARACTER COUNT 

KEEP GOING UNTIL ALL CHARACTERS DONE 

RESTORE THE PRINT BUFFER POINTER, 'ROM' POINTER S CHAR COUNT 

BUMP THE ROW COUNTER DOWN ONE 

BRANCH IF ALL ROWS DONE 

RESET THE CHARACTER COUNT 

ADJUST THE 'ROM' POINTER DOWN ONE ROW 

MOVE X DONW ONE HI-RES ROW 

KEEP LOOPING UNTIL THE WHOLE ROW IS DONE 

MAKE TASK REGISTER ACTIVE 



MODE 1 
MODE 2 
MODE 3 

MODE 4 



SAVE THE CHARACTER MASK 

INVERT THE MASK 

'AMD' IT WITH THE SCREEN DATA - CREATE A HOLE FOR THE CHARACTER 

DATA AND THEN PUT IT BACK ON THE SCREEN 

GET THE CHARACTER MASK BACK 

'AND' IT WITH THE PIXEL COLOR BYTE - 'COLOR' THE DATA 

'OR' IT WITH THE SCREEN DATA - FILL THE 'HOLE' CREATED ABOVE 

WITH THE 'COLORED' CHARACTER DATA AND PUT THE DATA ON THE SCREEN 



SAVE THE PRINT BUFFER POINTER 

POINT TO THE TABLE OF 4 COLOR PIXEL MASKS 

COPY CHARACTER DATA TO ACCB 



SHIFT THE HIGH ORDER NIBBLE TO THE LOW ORDER NIBB 

GET THE PIXEL MASK FOR THE HIGH NIBBLE 

DISPLAY THE HIGH ORDER NIBBLE DATA ON THE SCREEN 

MASK OFF THE HIGH ORDER NIBBLE 

GET THE PIXEL MASK FOR THE LOW NIBBLE 

DISPLAY THE LOW ORDER NIBBLE DATA ON THE SCREEN 

RESTORE THE PRINT BUFFER POINTER 



4 COLOR PIXEL MASKS 



SAVE THE PRINT BUFFER POINTER AND THE CHARACTER DATA 
POINT TO THE TABLE OF 16 COLOR MASKS 



SHIFT THE HIGH ORDER PIXEL TO BITS 0-3 

MULTIPLY BY 2, THERE ARE 2 BYTES PER TABLE ENTRY 

GET THE FIRST FOUR PIXEL MASKS FROM THE TABLE 

DISPLAY THE FIRST TWO PIXELS 

PUT THE NEXT TWO PIXELS' DATA INTO ACCA 

DISPLAY THE NEXT TWO PIXELS 

GET THE CHARACTER DATA BACK 

MASK OFF THE HIGH NIBBLE 

MULTIPLY BY 2, THERE ARE 2 BYTES PER TABLE ENTRY 

GET THE LAST FOUR PIXEL MASKS FROM THE TABLE 

DISPLAY THE NEXT TWO PIXELS 

PUT THE NEXT TWO PIXELS' DATA INTO ACCA 

DISPLAY THE LAST TWO PIXELS 

RESTORE THE PRINT BUFFER POINTER 

WASTED; THIS AND ABOVE INSTRUCTION SHOULD BE PULS 



CONVERT THE PRINT POSITION FROM CHARACTER ROWS AND COLUMNS TO PIXEL ROWS 



F08C DC BD 

F08E 58 

F08F 58 

F090 49 

F091 58 

F092 49 

F093 DD BD 



* AND COLUMNS; 
LF08C LDD 
ALSB 

ALSB 
ROLA 
ALSB 
ROLA 
STD 



EACH CHARACTER IS 8 PIXELS WIDE AND 8 PIXELS DEEP. 

HORBEG GET THE PRINT COLUMN POSITION 



SHIFT ACCD LEFT THREE TIMES; MULTIPLY COLUMN POSITION BY EIGHT 
SAVE NEW COLUMN POSITION IN TERMS OF PIXELS (8 PIXELS/CHARACTER) 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



2689 


F095 


96 


C0 












LDA 


VERBEG+1 








2690 


F097 


48 














ALSA 










2691 


F098 


48 














ALSA 










2692 


F099 


48 














ALSA 










2693 


F09A 


97 


C0 












STA 


VERBEG+1 








2694 


F09C 


39 














RTS 










2695 




























2696 
















* HI -RES 


CHARACTER GENERATOR ' 


;om 




2697 
















* SPECIAL CHARACTERS AND NUMBERS 




2698 


F09D 


00 


00 


00 


00 


00 


00 


LF09D 


FCB 


$00, $00, $00 


$00 


$00 


$00 


2699 


F0A3 


00 


00 












FCB 


$00 


$00 








2700 


F0A5 


10 


10 


10 


10 


10 


00 


LF0A5 


FCB 


$10 


$10, $10 


$10 


$10 


$00 


2701 


F0AB 


10 


00 












FCB 


$10 


$00 








2702 


F0AD 


28 


28 


28 


00 


00 


00 


LF0AD 


FCB 


$28 


$28, $28 


$00 


$00 


$00 


2703 


F0B3 


00 


00 












FCB 


$00 


$00 








2704 


F0B5 


28 


28 


7C 


28 


7C 


28 


LF0B5 


FCB 


$28 


$28,$7C 


$28 


$7C 


$28 


2705 


F0BB 


28 


00 












FCB 


$28 


$00 








2706 


F0BD 


10 


3C 


50 


38 


14 


78 


LF0BD 


FCB 


$10 


$3C,$50 


$38 


$14 


$78 


2707 


F0C3 


10 


00 












FCB 


$10 


$00 








2708 


F0C5 


60 


64 


08 


10 


20 


4C 


LF0C5 


FCB 


$60 


$64, $08 


$10 


$20 


$4C 


2709 


F0CB 


0C 


00 












FCB 


$0C 


$00 








2710 


F0CD 


20 


50 


50 


20 


54 


48 


LF0CD 


FCB 


$20 


$50, $50 


$20 


$54 


$48 


2711 


F0D3 


34 


00 












FCB 


$34 


$00 








2712 


F0D5 


10 


10 


20 


00 


00 


00 


LF0D5 


FCB 


$10 


$10, $20 


$00 


$00 


$00 


2713 


F0DB 


00 


00 












FCB 


$00 


$00 








2714 


F0DD 


08 


10 


20 


20 


20 


10 


LF0DD 


FCB 


$08 


$10, $20 


$20 


$20 


$10 


2715 


F0E3 


08 


00 












FCB 


$08 


$00 








2716 


F0E5 


20 


10 


08 


08 


08 


10 


LF0E5 


FCB 


$20 


$10, $08 


$08 


$08 


$10 


2717 


F0EB 


20 


00 












FCB 


$20 


$00 








2718 


F0ED 


00 


10 


54 


38 


38 


54 


LF0ED 


FCB 


$00 


$10, $54 


$38 


$38 


$54 


2719 


F0F3 


10 


00 












FCB 


$10 


$00 








2720 


F0F5 


00 


10 


10 


7C 


10 


10 


LF0F5 


FCB 


$00 


$10, $10 


$7C 


$10 


$10 


2721 


F0FB 


00 


00 












FCB 


$00 


$00 








2722 


F0FD 


00 


00 


00 


00 


00 


10 


LF0FD 


FCB 


$00 


$00, $00 


$00 


$00 


$10 


2723 


F103 


10 


20 












FCB 


$10 


$20 








2724 


F105 


00 


00 


00 


7C 


00 


00 


LF105 


FCB 


$00 


$00, $00 


$7C 


$00 


$00 


2725 


F10B 


00 


00 












FCB 


$00 


$00 








2726 


F10D 


00 


00 


00 


00 


00 


00 


LF10D 


FCB 


$00 


$00, $00 


$00 


$00 


$00 


2727 


F113 


10 


00 












FCB 


$10 


$00 








2728 


F115 


00 


04 


08 


10 


20 


40 


LF115 


FCB 


$00 


$04, $08 


$10 


$20 


$40 


2729 


F11B 


00 


00 












FCB 


$00 


$00 








2730 


F11D 


38 


44 


4C 


54 


64 


44 


LF11D 


FCB 


$38 


$44,$4C 


$54 


$64 


$44 


2731 


F123 


38 


00 












FCB 


$38 


$00 








2732 


F125 


10 


30 


10 


10 


10 


10 


LF125 


FCB 


$10 


$30, $10 


$10 


$10 


$10 


2733 


F12B 


38 


00 












FCB 


$38 


$00 








2734 


F12D 


38 


44 


04 


38 


40 


40 


LF12D 


FCB 


$38 


$44, $04 


$38 


$40 


$40 


2735 


F133 


7C 


00 












FCB 


$7C 


$00 








2736 


F135 


38 


44 


04 


08 


04 


44 


LF135 


FCB 


$38 


$44, $04 


$08 


$04 


$44 


2737 


F13B 


38 


00 












FCB 


$38 


$00 








2738 


F13D 


08 


18 


28 


48 


7C 


08 


LF13D 


FCB 


$08 


$18, $28 


$48 


$7C 


$08 


2739 


F143 


08 


00 












FCB 


$08 


$00 








2740 


F145 


7C 


40 


78 


04 


04 


44 


LF145 


FCB 


$7C 


$40, $78 


$04 


$04 


$44 


2741 


F14B 


38 


00 












FCB 


$38 


$00 








2742 


F14D 


38 


40 


40 


78 


44 


44 


LF14D 


FCB 


$38 


$40, $40 


$78 


$44 


$44 


2743 


F153 


38 


00 












FCB 


$38 


$00 








2744 


F155 


7C 


04 


08 


10 


20 


40 


LF155 


FCB 


$7C 


$04, $08 


$10 


$20 


$40 


2745 


F15B 


40 


00 












FCB 


$40 


$00 








2746 


F15D 


38 


44 


44 


38 


44 


44 


LF15D 


FCB 


$38 


$44, $44 


$38 


$44 


$44 


2747 


F163 


38 


00 












FCB 


$38 


$00 








2748 


F165 


38 


44 


44 


38 


04 


04 


LF165 


FCB 


$38 


$44, $44 


$38 


$04 


$04 


2749 


F16B 


38 


00 












FCB 


$38 


$00 








2750 


F16D 


00 


00 


10 


00 


00 


10 


LF16D 


FCB 


$00 


$00, $10 


$00 


$00 


$10 


2751 


F173 


00 


00 












FCB 


$00 


$00 








2752 


F175 


00 


00 


10 


00 


00 


10 


LF175 


FCB 


$00 


$00, $10 


$00 


$00 


$10 


2753 


F17B 


10 


20 












FCB 


$10 


$20 








2754 


F17D 


08 


10 


20 


40 


20 


10 


LF17D 


FCB 


$08 


$10, $20 


$40 


$20 


$10 


2755 


F183 


08 


00 












FCB 


$08 


$00 








2756 


F185 


00 


00 


7C 


00 


7C 


00 


LF185 


FCB 


$00 


$00,$7C 


$00 


$7C 


$00 


2757 


F18B 


00 


0'} 












FCB 


$00 


$00 








2758 


F18D 


20 


10 


08 


04 


08 


10 


LF18D 


FCB 


$20 


$10, $08 


$04 


$08 


$10 


2759 


F193 


20 


00 












FCB 


$20 


$00 








2760 


F195 


38 


44 


04 


08 


10 


00 


LF195 


FCB 


$38 


$44, $04 


$08 


$10 


$00 


2761 


F19B 


10 


00 












FCB 


$10 


$00 








2762 




























2763 
















* UPPER 


CASE 


CHARACTERS 








2764 


F19D 


38 


44 


04 


34 


4C 


4C 


LF19D 


FCB 


$38, $44, $04 


$34 


$4C 


$4C 


2765 


F1A3 


38 


00 












FCB 


$38 


$00 








2766 


F1A5 


10 


28 


44 


44 


7C 


44 


LF1A5 


FCB 


$10 


$28, $44 


$44 


$7C 


$44 


2767 


F1AB 


44 


00 












FCB 


$44 


$00 








2768 


F1AD 


78 


24 


24 


38 


24 


24 


LF1AD 


FCB 


$78 


$24, $24 


$38 


$24 


$24 


2769 


F1B3 


78 


00 












FCB 


$78 


$00 








2770 


F1B5 


38 


44 


40 


40 


40 


44 


LF1B5 


FCB 


$38 


$44, $40 


$40 


$40 


$44 


2771 


F1BB 


38 


00 












FCB 


$38 


$00 








2772 


F1BD 


78 


24 


24 


24 


24 


24 


LF1BD 


FCB 


$78 


$24, $24 


$24 


$24 


$24 


2773 


F1C3 


78 


00 












FCB 


$78 


$00 








2774 


F1C5 


7C 


40 


40 


70 


40 


40 


LF1C5 


FCB 


$7C 


$40, $40 


$70 


$40 


$40 


2775 


F1CB 


7C 


00 












FCB 


$7C 


$00 








2776 


F1CD 


7C 


40 


40 


70 


40 


40 


LF1CD 


FCB 


$7C 


$40, $40 


$70 


$40 


$40 


2777 


F1D3 


40 


00 












FCB 


$40 


$00 








2778 


F1D5 


38 


44 


40 


40 


4C 


44 


LF1D5 


FCB 


$38 


$44, $40 


$40 


$4C 


$44 


2779 


F1DB 


38 


00 












FCB 


$38 


$00 








2780 


FIDO 


44 


44 


44 


7C 


44 


44 


LF1DD 


FCB 


$44 


$44, $44 


$7C 


$44 


$44 


2781 


F1E3 


44 


00 












FCB 


$44 


$00 








2782 


F1E5 


38 


10 


10 


10 


10 


10 


LF1E5 


FCB 


$38 


$10, $10 


$10 


$10 


$10 


2783 


F1EB 


38 


00 












FCB 


$38 


$00 








2784 


F1ED 


04 


04 


04 


04 


04 


44 


LF1ED 


FCB 


$04 


$04, $04 


$04 


$04 


$44 



GET THE PRINT ROW NUMBER 
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2785 


F1F3 


38 


00 












FCB 


$38 


$00 










2786 


F1F5 


44 


48 


50 


60 


50 


48 


LF1F5 


FCB 


$44 


$48, $50 


$60 


$50 


$48 


K 


2787 


F1FB 


44 


00 












FCB 


$44 


$00 










2788 


FIFO 


40 


40 


40 


40 


40 


40 


LF1FD 


FCB 


$40 


$40, $40 


$40 


$40 


$40 


L 


2789 


F203 


7C 


00 












FCB 


$7C 


$00 










2790 


F205 


44 


6C 


54 


54 


44 


44 


LF205 


FCB 


$44 


$6C,$54 


$54 


$44 


$44 


M 


2791 


F20B 


44 


00 












FCB 


$44 


$00 










2792 


F20D 


44 


44 


64 


54 


4C 


44 


LF20D 


FCB 


$44 


$44, $64 


$54 


$4C 


$44 


N 


2793 


F213 


44 


00 












FCB 


$44 


$00 










2794 


F215 


38 


44 


44 


44 


44 


44 


LF215 


FCB 


$38 


$44, $44 


$44 


$44 


$44 





2795 


F21B 


38 


00 












FCB 


$38 


$00 










2796 


F21D 


78 


44 


44 


78 


40 


40 


LF21D 


FCB 


$78 


$44, $44 


$78 


$40 


$40 


P 


2797 


F223 


40 


00 












FCB 


$40 


$00 










2798 


F225 


38 


44 


44 


44 


54 


48 


LF225 


FCB 


$38 


$44, $44 


$44 


$54 


$48 


Q 


2799 


F22B 


34 


00 












FCB 


$34 


$00 










2800 


F22D 


78 


44 


44 


78 


50 


48 


LF22D 


FCB 


$78 


$44, $44 


$78 


$50 


$48 


R 


2801 


F233 


44 


00 












FCB 


$44 


$00 










2802 


F235 


38 


44 


40 


38 


04 


44 


LF235 


FCB 


$38 


$44, $40 


$38 


$04 


$44 


S 


2803 


F23B 


38 


00 












FCB 


$38 


$00 










2804 


F23D 


7C 


10 


10 


10 


10 


10 


LF23D 


FCB 


$7C 


$10, $10 


$10 


$10 


$10 


T 


2805 


F243 


10 


00 












FCB 


$10 


$00 










2806 


F245 


44 


44 


44 


44 


44 


44 


LF245 


FCB 


$44 


$44, $44 


$44 


$44 


$44 


U 


2807 


F24B 


38 


00 












FCB 


$38 


$00 










2808 


F24D 


44 


44 


44 


28 


28 


10 


LF24D 


FCB 


$44 


$44, $44 


$28 


$28 


$10 


V 


2809 


F253 


10 


00 












FCB 


$10 


$00 










2810 


F255 


44 


44 


44 


44 


54 


6C 


LF255 


FCB 


$44 


$44, $44 


$44 


$54 


$6C 


w 


2811 


F25B 


44 


00 












FCB 


$44 


$00 










2812 


F25D 


44 


44 


28 


10 


28 


44 


LF25D 


FCB 


$44 


$44, $28 


$10 


$28 


$44 


X 


2813 


F263 


44 


00 












FCB 


$44 


$00 










2814 


F265 


44 


44 


28 


10 


10 


10 


LF265 


FCB 


$44 


$44, $28 


$10 


$10 


$10 


V 


2815 


F26B 


10 


00 












FCB 


$10 


$00 










2816 


F26D 


7C 


04 


08 


10 


20 


40 


LF26D 


FCB 


$7C 


$04, $08 


$10 


$20 


$40 


z 


2817 


F273 


7C 


00 












FCB 


$7C 


$00 










2818 


F275 


38 


20 


20 


20 


20 


20 


LF275 


FCB 


$38 


$20, $20 


$20 


$20 


$20 


] 


2819 


F27B 


38 


00 












FCB 


$38 


$00 










2820 


F27D 


00 


40 


20 


10 


08 


04 


LF27D 


FCB 


$00 


$40, $20 


$10 


$08 


$04 


\ 


2821 


F283 


00 


00 












FCB 


$00 


$00 










2822 


F285 


38 


08 


08 


08 


08 


08 


LF285 


FCB 


$38 


$08, $08 


$08 


$08 


$08 


[ 


2823 


F28B 


38 


00 












FCB 


$38 


$00 










2824 


F28D 


10 


38 


54 


10 


10 


10 


LF28D 


FCB 


$10 


$38, $54 


$10 


$10 


$10 


UP ARROW 


2825 


F293 


10 


00 












FCB 


$10 


$00 










2826 


F295 


00 


10 


20 


7C 


20 


10 


LF295 


FCB 


$00 


$10, $20 


$7C 


$20 


$10 


LEFT ARROW 


2827 


F29B 


00 


00 












FCB 


$00 


$00 










2828 






























2829 
















* LOWER 


CASE 


CHARACTERS 










2830 


F29D 


10 


28 


44 


00 


00 


00 


LF29D 


FCB 


$10, $28, $44 


$00 


$00 


$00 


A 


2831 


F2A3 


00 


00 












FCB 


$00 


$00 










2832 


F2A5 


00 


00 


38 


04 


3C 


44 


LF2A5 


FCB 


$00 


$00, $38 


$04 


$3C 


$44 


a 


2833 


F2AB 


3C 


00 












FCB 


$3C 


$00 










2834 


F2AD 


40 


40 


58 


64 


44 


64 


LF2AD 


FCB 


$40 


$40, $58 


$64 


$44 


$64 


b 


2835 


F2B3 


58 


00 












FCB 


$58 


$00 










2836 


F2B5 


00 


00 


38 


44 


40 


44 


LF2B5 


FCB 


$00 


$00, $38 


$44 


$40 


$44 


c 


2837 


F2BB 


38 


00 












FCB 


$38 


$00 










2838 


F2BD 


04 


04 


34 


4C 


44 


4C 


LF2BD 


FCB 


$04 


$04, $34 


$4C 


$44 


$4C 


d 


2839 


F2C3 


34 


00 












FCB 


$34 


$00 










2840 


F2C5 


00 


00 


38 


44 


7C 


40 


LF2C5 


FCB 


$00 


$00, $38 


$44 


$7C 


$40 


e 


2841 


F2CB 


38 


00 












FCB 


$38 


$00 










2842 


F2CD 


08 


14 


10 


38 


10 


10 


LF2CD 


FCB 


$08 


$14, $10 


$38 


$10 


$10 


f 


2843 


F2D3 


10 


00 












FCB 


$10 


$00 










2844 


F2D5 


00 


00 


34 


4C 


4C 


34 


LF2D5 


FCB 


$00 


$00, $34 


$4C 


$4C 


$34 


g 


2845 


F2DB 


04 


38 












FCB 


$04 


$38 










2846 


F2DD 


40 


40 


58 


64 


44 


44 


LF2DD 


FCB 


$40 


$40, $58 


$64 


$44 


$44 


h 


2847 


F2E3 


44 


00 












FCB 


$44 


$00 










2848 


F2E5 


00 


10 


00 


30 


10 


10 


LF2E5 


FCB 


$00 


$10, $00 


$30 


$10 


$10 


1 


2849 


F2EB 


38 


00 












FCB 


$38 


$00 










2850 


F2ED 


00 


04 


00 


04 


04 


04 


LF2ED 


FCB 


$00 


$04, $00 


$04 


$04 


$04 


J 


2851 


F2F3 


44 


38 












FCB 


$44 


$38 










2852 


F2F5 


40 


40 


48 


50 


60 


50 


LF2F5 


FCB 


$40 


$40, $48 


$50 


$60 


$50 


k 


2853 


F2FB 


48 


00 












FCB 


$48 


$00 










2854 


F2FD 


30 


10 


10 


10 


10 


10 


LF2FD 


FCB 


$30 


$10, $10 


$10 


$10 


$10 


1 


2855 


F303 


38 


00 












FCB 


$38 


$00 










2856 


F305 


00 


00 


68 


54 


54 


54 


LF305 


FCB 


$00 


$00, $68 


$54 


$54 


$54 


m 


2857 


F30B 


54 


00 












FCB 


$54 


$00 










2858 


F30D 


00 


00 


58 


64 


44 


44 


LF30D 


FCB 


$00 


$00, $58 


$64 


$44 


$44 


n 


2859 


F313 


44 


00 












FCB 


$44 


$00 










2860 


F315 


00 


00 


38 


44 


44 


44 


LF315 


FCB 


$00 


$00, $38 


$44 


$44 


$44 





2861 


F31B 


38 


00 












FCB 


$38 


$00 










2862 


F31D 


00 


00 


78 


44 


44 


78 


LF31D 


FCB 


$00 


$00, $78 


$44 


$44 


$78 


P 


2863 


F323 


40 


40 












FCB 


$40 


$40 










2864 


F325 


00 


00 


3C 


44 


44 


3C 


LF325 


FCB 


$00 


$00,$3C 


$44 


$44 


$3C 


q 


2865 


F32B 


04 


04 












FCB 


$04 


$04 










2866 


F32D 


00 


00 


58 


64 


40 


40 


LF32D 


FCB 


$00 


$00, $58 


$64 


$40 


$40 


r 


2867 


F333 


40 


00 












FCB 


$40 


$00 










2868 


F335 


00 


00 


3C 


40 


38 


04 


LF335 


FCB 


$00 


$00,$3C 


$40 


$38 


$04 


s 


2869 


F33B 


78 


0'.' 
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* CHANGE COLOR 
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CHECK HI-RES GRAPHICS MODE 

'HR' ERROR IF HI-RES MODE NOT ENABLED 

RAM HOOK 

* X=0, ACCB=1; END OF DRAW COMMAND LINE VALUES 

* WHEN THESE VALUES ARE PULLED OFF THE STACK, 

* THE DRAW COMMAND WILL END 
SET PSET/PRESET FLAG TO PSET 
CLEAR UPDATE AND DRAW FLAGS 
SET ACTIVE COLOR BYTE 
EVALUATE EXPRESSION 

GET LENGTH AND ADDRESS OF COMMAND STRING 

INTERPRET THE COMMAND STRING 

GET THE NEXT CHARACTER FROM THE COMMAND LINE 

EVALUATE A DECIMAL VALUE IN COMMAND LINE 

GET NEXT COMMAND LINE TO BE INTERPRETED FROM THE STACK 

SET COMMAND LENGTH COUNTER 

GET NEW COMMAND LINE IF ZERO 

SET COMMAND LINE ADDRESS 

EXIT ROUTINE IF ADDRESS = 

TEST COMMAND LENGTH COUNTER 

GET NEW LINE IF 

GET A COMMAND CHARACTER 

CHECK FOR A SEMI-COLON 

IGNORE SEMI-COLONS 

CHECK FOR APOSTROPHE 

IGNORE APOSTROPHE 

UPDATE CHECK? 

BRANCH IF NOT 

TOGGLE UPDATE FLAG; = UPDATE, FF = NO UPDATE 

GET NEXT COMMAND 

CHECK DRAW FLAG? 

BRANCH IF NOT 

TOGGLE DRAW FLAG; = DRAW LINE, FF = DON'T DRAW LINE 

GET ENXT COMMAND 

SUBSTRING? 

GO EXECUTE A COMMAND SUBSTRING 

MOVE THE DRAW POSITION? 

BRANCH IF YES, GO MOVE IT 

SAVE CURRENT COMMAND 

DEFAULT VALUE IF NO NUMBER FOLLOWS COMMAND 

CLEAR MS BYTE OF SUBCOMMAND VALUE 

SAVE LS BYTE OF SUBCOMMAND VALUE 

CHECK COMMAND LENGTH COUNTER 

BRANCH IF NO COMMANDS LEFT 

GET A COMMAND CHARACTER 

SET CARRY IF NOT ALPHA 

SAVE CARRY FLAG 

MOVE COMMAND POINTER BACK ONE 

RESTORE CARRY FLAG 

BRANCH IF NEXT COMMAND IS ALPHA 

EVALUATE DECIMAL COMMAND LINE VALUE - RETURN VALUE IN ACCD S VD3 

GET CURRENT COMMAND BACK 

CHANGE COLOR? 

BRANCH IF YES 

CHANGE ANGLE? 

BRANCH IF YES 

CHANGE SCALE? 

BRANCH IF YES 

GO UP? 

BRANCH IF YES 

GO DOWN? 

BRANCH IF YES 

GO LEFT? 

BRANCH IF YES 

GO RIGHT? 

BRANCH IF YES 

MASK OFF ASCII FOR LETTER E-H COMMAND CHECKS 



BRANCH IF 
CHECK FOR 
BRANCH IF 
CHECK FOR 
BRANCH IF 
CHECK FOR 
BRANCH IF 



E (45 DEGREES) 



F (135 DEGREES) 



(225 DEGREES) 



(315 DEGREES) 



ILLEGAL FUNCTION CALL ERROR IF ILLEGAL SUBCOMMAND 



ADJUST COLOR CODE FOR PROPER GRAPHICS MODE 

SAVE NEW FOREGROUND COLOR 

SET UP COLOR BYTES 

GO PROCESS ANOTHER COMMAND 
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* EXECUTE A COMMAND SUB STRING 
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* MULTIPLY HOR 


OR VER DIFFERENI 
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ONLY ANGLES 0-3 ARE LEGAL 
ILLEGAL FUNCTION CALL ERROR 
SAVE DRAW ANGLE 
GO PROCESS ANOTHER COMMAND 

ONLY 0-63 ARE LEGAL 
ILLEGAL FUNCTION CALL ERROR 
SAVE DRAW SCALE 
GO PROCESS ANOTHER COMMAND 

NOW ACCD = VALUE OF THE SUBCOMMAND 
MAKE HORIZONTAL DIFFERENCE NEGATIVE 
BRANCH AROUND NEXT INSTRUCTION 

NOW ACCD = VALUE OF THE SUBCOMMAND 

COPY HORIZONTAL DIFFERENCE TO VERTICAL DIFFERENCE 

GO MOVE THE DRAW POSITION 

NOW ACCD = VALUE OF THE SUBCOMMAND 

COPY HORIZONTAL DIFFERENCE TO VERTICAL DIFFERENCE 

MAKE HORIZONTAL DIFFERENCE NEGATIVE 

SWAP HOR AND VER DIFFERENCES 

GO MOVE THE DRAW POSITION 

NOW ACCD = VALUE OF THE SUBCOMMAND 

COPY HORIZONTAL DIFFERENCE TO VERTICAL DIFFERENCE 

MAKE HORIZONTAL DIFFERENCE NEGATIVE 

GO MOVE THE DRAW POSITION 

NOW ACCD = VALUE OF THE SUBCOMMAND 
X=0; VERT DIFFERENCE = 
GO MOVE THE DRAW POSITION 

NOW ACCD = VALUE OF THE SUBCOMMAND 

MAKE HORIZONTAL DIFFERENCE NEGATIVE 

MAKE VERTICAL DIFFERENCE ZERO AND MOVE THE DRAW POSITION 

NOW ACCD = VALUE OF THE SUBCOMMAND 

MAKE VER DIFF=0, EXCHANGE HOR S VER DIFFS AND MOVE DRAW POSITION 

NOW ACCD = VALUE OF THE SUBCOMMAND 
MAKE HORIZONTAL DIFFERENCE NEGATIVE 
X=0; HORIZONTAL DIFFERENCE = 
SWAP HOR AND VER DIFFERENCES 
GO MOVE THE DRAW POSITION 

INTERPRET CURRENT COMMAND AS IF IT WERE A BASIC VARIABLE 

= SEE IF AT LEAST FOUR BYTES OF FREE RAM ARE LEFT 
GET CURRENT COMMAND LENGTH 
GET CURRENT COMMAND COUNTER 
SAVE THEM ON THE STACK 

EVALUATE NUMERICAL VALUE IN COMMAND LINE 
FACTOR, DIVIDE PRODUCT BY 4 AND RETURN VALUE IN ACCD 
GET DRAW SCALE 

BRANCH IF ZERO (DEFAULT TO FULL SCALE) 
CLEAR THE MS BYTE 
SWAP DIFFERENCE AND SCALE FACTOR 

SAVE MS BYTE OF DIFFERENCE ON STACK (SIGN INFORMATION) 
BRANCH IF POSITIVE DIFFERENCE 
FORCE THE DIFFERENCE TO BE A POSITIVE VALUE 
MULT DIFFERENCE BY SCALE FACTOR 
SAVE 2 MS BYTES IN ACCD 

DIVIDE ACCD BY 2 

DO IT AGAIN, EACH SCALE INCREMENT IS 1/4 FULL SCALE 
CHECK SIGN OF ORIGINAL DIFFERENCE 
RETURN IF IT WAS POSITIVE 



NEGATE ACCD 

TRANSFER UNCHANGED DIFFERENCE TO ACCD 



MOVE THE DRAW POSITION ■ 
AND X (VERTICAL) TO THE 
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ADD THE ORTHOGONAL DIFFERENCES IN ACCD (HORIZONTAL) 
CURRENT POSITION; DRAW A LINE AFTER THE MOVE 

SAVE THE HORIZONTAL DIFFERENCE 

APPLY SCALE FACTOR TO VERTICAL 

GET HORIZONTAL DIFFERENCE 

SAVE THE VERTICAL DIFFERENCE 

APPLY THE SCALE FACTOR TO HORIZONTAL 

GET THE VERTICAL DIFFERENCE 

GET DRAW ANGLE AND SCALE 

SAVE THEM ON THE STACK 

CHECK DRAW ANGLE 

BRANCH IF NO ANGLE 

SWAP HORIZONTAL AND VERTICAL DIFFERENCES 

NEGATE ACCD 

DECR ANGLE 

CHECK ANGLE AGAIN 

PULL ANGLE AND SCALE OFF OF THE STACK 
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F531 


DF 


C3 




3102 


F533 


0D 


D5 




3103 


F535 


26 


04 




3104 


F537 


9F 


C9 




3105 


F539 


DF 


C7 




3106 


F53B 


BD 


EA 


0D 


3107 


F53E 


0D 


D6 




3108 


F540 


26 


03 




3109 


F542 


BD 


E9 


4E 


3110 


F545 


0F 


D5 




3111 


F547 


0F 


D6 




3112 


F549 


7E 


F3 


CF 


3113 










3114 










3115 


F54C 


BD 


F5 


91 


3116 


F54F 


34 


02 




3117 


F551 


BD 


F5 


78 


3118 


F554 


34 


06 




3119 


F556 


BD 


F5 


91 


3120 


F559 


81 


2C 




3121 


F55B 


10 


26 


BE EB 


3122 


F55F 


BD 


F5 


75 


3123 


F562 


IF 


01 




3124 


F564 


35 


40 




3125 


F566 


35 


02 




3126 


F568 


81 


2B 




3127 


F56A 


27 


04 




3128 


F56C 


81 


2D 




3129 


F56E 


26 


97 




3130 


F570 


IF 


30 




3131 


F572 


7E 


F4 


D4 


3132 


F575 


BD 


F5 


91 


3133 


F578 


81 


2B 




3134 


F57A 


27 


07 




3135 


F57C 


81 


2D 




3136 


F57E 


27 


04 




3137 


F580 


BD 


F5 


F2 


3138 


F583 


4F 






3139 


F584 


34 


02 




3140 


F586 


BD 


F3 


BD 


3141 


F589 


6D 


E0 




3142 


F58B 


27 


03 




3143 










3144 


F58D 


50 






3145 


F58E 


82 


00 




3146 


F590 


39 






3147 










3148 










3149 


F591 


34 


10 




3150 


F593 


0D 


D8 




3151 


F595 


10 


27 


BE Bl 


3152 


F599 


9E 


D9 




3153 


F59B 


A6 


80 




3154 


F59D 


9F 


D9 




3155 


F59F 


0A 


D8 




3156 


F5A1 


81 


20 




3157 


F5A3 


27 


EE 




3158 


F5A5 


35 


90 




3159 










3160 


F5A7 


81 


3D 




3161 


F5A9 


26 


0B 




3162 


F5AB 


34 


60 




3163 


F5AD 


8D 


62 




3164 


F5AF 


BD 


B3 


E9 


3165 


F5B2 


DD 


[13 




3166 


F5B4 


35 


E0 




3167 


F5B6 


BD 


F6 


08 


3168 


F5B9 


10 


25 


BE 8D 





LDU 


#0 




ADDD 


HORDEF 




BMI 


LF4FC 




TFR 


D,U 


LF4FC 


TFR 


X,D 




LDX 


#0 




ADDD 


VERDEF 




BMI 


LF507 




TFR 


D,X 


* MOVE 


THE DRAW POSITION; 


* IN U 


REGISTER AND ABSOU 


LF507 


CMPU 


#640 




BCS 


LF510 




LDU 


#640-1 


LF510 


LDA 


HRMODE 




CMPA 


#$02 




BGT 


LF51F 




CMPU 


#320 




BCS 


LF51F 




LDU 


#320-1 


LF51F 


CMPX 


#192 




BCS 


LF527 




LDX 


#192-1 


LF527 


LDD 


HORDEF 




STD 


HORBEG 




LDD 


VERDEF 




STD 


VERBEG 




STX 


VEREND 




STU 


HOREND 




TST 


VD5 




BNE 


LF53B 




STX 


VERDEF 




STU 


HORDEF 


LF53B 


JSR 


LEA0D 




TST 


VD6 




BNE 


LF545 




JSR 


LE94E 


LF545 


CLR 


VD5 




CLR 


VD6 




JMP 


LF3CF 


* SET 


THE DRAW 


POSITION 


LF54C 


JSR 


LF591 




PSHS 


A 




JSR 


LF578 




PSHS 


B,A 




JSR 


LF591 




CMPA 


#' ,' 




LBNE 


ILLFUNC 




JSR 


LF575 




TFR 


D,X 




PULS 


U 




PULS 


A 




CMPA 


#' + ' 




BEQ 


LF570 




CMPA 


#'-' 




BNE 


LF507 


LF570 


TFR 


U,D 




JMP 


LF4D4 


LF575 


JSR 


LF591 


LF578 


CMPA 


#' + ' 




BEQ 


LF583 




CMPA 


#'-' 




BEQ 


LF584 




JSR 


LF5F2 


LF583 


CLRA 




LF584 


PSHS 


A 




JSR 


LF3BD 




TST 


,s+ 




BEQ 


LF590 


* THIS 


IS A BUG; SHOULD Bl 




NEGB 






SBCA 


#$00 


LF590 


RTS 




* GET 


NEXT COMMAND - RETU 


LF591 


PSHS 


X 


LF593 


TST 


VD8 




LBEQ 


ILLFUNC 




LDX 


VD9 




LDA 


,x+ 




STX 


VD9 




DEC 


VD8 




CMPA 


#SPACE 




BEQ 


LF593 




PULS 


X,PC 


LF5A7 


CMPA 


#' = ' 




BNE 


LF5B6 




PSHS 


U,Y 




BSR 


LF611 




JSR 


LB3E9 




STD 


VD3 




PULS 


Y,U,PC 


LF5B6 


JSR 


LF608 




LBCS 


ILLFUNC 



DEFAULT HORIZONTAL END POSITION TO 
ADD DIFFERENCE TO HORIZONTAL START 

GO FORCE HORIZONTAL COORD TO IF RESULT IS NEGATIVE 
SAVE HORIZONTAL END POSITION IN U 
PUT DIFFERENCE IN ACCD 
DEFAULT THE VERTICAL END POSITION TO 
ADD THE DIFFERENCE TO VERTICAL START 
VERTICAL COORD = IF RESULT IS NEGATIVE 
SAVE VERTICAL POSITION IN X 
ENTER WITH ABSOLUTE HORIZONTAL POSITION 
LTE VERTICAL POSITION IN X REGISTER. 

COMPARE TO MAX HORIZONTAL COORDINATE 

BRANCH IF WITHIN RANGE 

FORCE MAXIMUM VALUE IF NOT 

GET HI-RES GRAPHICS MODE 

SEE WHICH ONE 

BRANCH IF MODE 3 OR 4 

MAX HORIZONTAL COORD FOR 320x192 MODES (1 AND 2) 

BRANCH IF WITHIN LIMITS 

FORCE TO MAXIMUM IF NOT 

IS VERTICAL COORD WITHIN RANGE? 

BRANCH IF IT IS 

FORCE TO MAXIMUM IF NOT 

GET LAST HORIZONTAL POSITION 

MAKE IT THE HORIZONTAL START 

GET LAST VERTICAL POSITION 

MAKE IT THE VERTICAL START 

SAVE VERTICAL END COORD 

SAVE HORIZONTAL END COORDINATE 

CHECK UPDATE FLAG 

BRANCH IF NO UPDATE 

UPDATE VERTICAL POSITION OF DRAW POINTER 

DO THE SAME WITH THE HORIZONTAL DRAW POINTER 

NORMALIZE COORDS IN HOREND, VEREND AND HORBEG, VERBEG 

CHECK DRAW FLAG 

BRANCH IF NO DRAW 

DRAWLINE FROM (HORBEG, VERBEG) TO (HOREND, VEREND) 

RESET UPDATE FLAG 

RESET DRAW FLAG 

GO GET ANOTHER COMMAND 



GET A CHAR FROM COMMAND LINE 
SAVE IT 

EVALUATE THE HORIZONTAL DIFFERENCE 
SAVE IT ON THE STACK 
GET A CHAR FROM COMMAND LINE 
CHECK FOR COMMA 

ILLEGAL FUCNTION CALL ERROR IF NO COMMA 
EVALUATE THE VERTICAL DIFFERENCE 
SAVE VERTICAL DIFFERENCE IN X 
GET HORIZONTAL DIFFERENCE IN U 
GET FIRST COMMAND CHARACTER 
CHECK FOR PLUS 

TREAT VALUES IN X AND U AS DIFFERENCES AND MOVE POINTER 
CHECK FOR MINUS 

IF NOT '+' OR '-', MOVE THE POINTER TO THE COORDINATES IN U AND ACCD 
PUT HORIZONTAL DIFFERENCE IN ACCD; X CONTAINS THE VERTICAL DIFFERENCE 
GOMOVE THE DRAW POSITION 
GET A CHAR FROM COMMAND LINE 
CHECK FOR LEADING + (RELATIVE MOTION) 
BRANCH IF RELATIVE 
DO THE SAME FOR THE MINUS SIGN 
BRANCH IF RELATIVE 

MOVE COMMAND STRING BACK ONE IF NOT RELATIVE MOTION 
IF ACCA=0, THEN '+'; IF ACCA <> 0, THEN '-' 
SAVE ADD7SUB FLAG; 0=ADD, <> = SUBTRACT 

EVALUATE DECIMAL NUMBER IN COMMAND STRING - RETURN VALUE IN ACCD 
CHECK THE ADD/SUBTRACT FLAG AND CLEAN UP THE STACK 
BRANCH IF ADD 
BE JSR NEGACCD INSTEAD OF THE NEXT TWO INSTRUCTIONS 



RETURN VALUE IN ACCA 



SAVE X REGISTER 

CHECK COMMAND COUNTER 

ILLEGAL FUNCTION CALL ERROR IF NO COMMAND DATA LEFT 

GET COMMAND ADDRESS 

GET COMMAND 

SAVE NEW COMMAND ADDRESS 

DECREMENT COMMAND COUNTER 

CHECK FOR BLANK 

IGNORE BLANKS 

RESTORE X REGISTER AND RETURN 

CHECK FOR A VARIABLE EQUATE 

BRANCH IF NOT VARIABLE EQUATE 

SAVE REGISTERS 

INTERPRET THE VARIABLE IN THE COMMAND LINE 

CONVERT VARIABLE INTO A POSITIVE INTEGER IN ACCD 

SAVE THE SUBCOMMAND VALUE 

RESTORE REGISTERS AND RETURN 

CLEAR CARRY IF NUMERIC 

ILLEGAL FUNCTION CALL IF NOT NUMERIC 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3169 


F5BD 


0F 


D3 




3170 


F5BF 


0F 


D4 




3171 










3172 


F5C1 


80 


30 




3173 


F5C3 


97 


D7 




3174 


F5C5 


DC 


[13 




3175 


F5C7 


8D 


34 




3176 


F5C9 


DB 


D7 




3177 


F5CB 


89 


00 




3178 


F5CD 


DD 


D3 




3179 


F5CF 


96 


E6 




3180 


F5D1 


81 


02 




3181 


F5D3 


2E 


05 




3182 


F5D5 


CC 


01 


3F 


3183 


F5D8 


20 


03 




3184 


F5DA 


CC 


02 


7F 


3185 


F5DD 


10 


93 


D3 


3186 


F5E0 


10 


2D 


BE 66 


3187 


F5E4 


DC 


D3 




3188 


F5E6 


0D 


D8 




3189 


F5E8 


27 


10 




3190 


F5EA 


BD 


F5 


91 


3191 


F5ED 


BD 


F6 


08 


3192 


F5F0 


24 


CF 




3193 


F5F2 


0C 


D8 




3194 


F5F4 


9E 


D9 




3195 


F5F6 


30 


IF 




3196 


F5F8 


9F 


D9 




3197 


F5FA 


DC 


[13 




3198 


F5FC 


39 






3199 










3200 










3201 


F5FD 


58 






3202 


F5FE 


49 






3203 


F5FF 


34 


06 




3204 


F601 


58 






3205 


F602 


49 






3206 


F603 


58 






3207 


F604 


49 






3208 


F605 


E3 


El 




3209 


F607 


39 






3210 










3211 










3212 


F608 


81 


30 




3213 


F60A 


25 


04 




3214 


F60C 


80 


3A 




3215 


F60E 


80 


C6 




3216 


F610 


39 






3217 










3218 


F611 


9E 


D9 




3219 


F613 


34 


10 




3220 


F615 


BD 


F5 


91 


3221 


F618 


BD 


B3 


A2 


3222 


F61B 


10 


25 


BE 2B 


3223 


F61F 


BD 


F5 


91 


3224 


F622 


81 


3B 




3225 


F624 


26 


F9 




3226 


F626 


35 


10 




3227 


F628 


DE 


A6 




3228 


F62A 


34 


40 




3229 


F62C 


9F 


A6 




3230 


F62E 


BD 


B2 


84 


3231 


F631 


35 


10 




3232 


F633 


9F 


A6 




3233 


F635 


39 






3234 










3235 










3236 


F636 


0F 


E6 




3237 


F638 


10 


21 


09 C4 


3238 


F63C 


81 


00 




3239 


F63E 


27 


0F 




3240 


F640 


BD 


B7 


0B 


3241 


F643 


CI 


20 




3242 


F645 


27 


0B 




3243 


F647 


CI 


28 




3244 


F649 


27 


11 




3245 


F64B 


CI 


50 




3246 


F64D 


27 


2A 




3247 


F64F 


7E 


B4 


4A 


3248 










3249 










3250 


F652 


4F 






3251 


F653 


97 


E7 




3252 


F655 


BD 


A9 


28 


3253 


F658 


17 


E9 


BE 


3254 


F65B 


39 






3255 










3256 










3257 


F65C 


86 


01 




3258 


F65E 


97 


E7 




3259 


F660 


17 


01 


0F 


3260 


F663 


86 


28 




3261 


F665 


C6 


18 




3262 


F667 


FD 


FE 


04 


3263 


F66A 


CC 


27 


80 


3264 











CLR VD3 * 

CLR VD4 * INITIALIZE THE SUBCOMMAND VALUE TO ZERO 

1MAND STRING AND RETURN THE BINARY VALUE IN VD3 
MASK OFF ASCII 
SAVE TEMPORARILY 

GET THE CURRENT SUBCOMMAND VALUE 
MULTIPLY ACCD BY 10 
ADD THE CURRENT DIGIT 
PROPAGATE THE CARRY 
SAVE THE NEW SUBCOMMAND VALUE 
GET THE HI-RES GRAPHICS MODE 
IS IT A 640 OR 320 BYTES/PIXEL ROW MODE? 
BRANCH IF 640 PIXELS/HORIZONTAL ROW MODE 
MAXIMUM HORIZONTAL PIXELS IN THE 320 PIXEL MODE 

MAXIMUM HORIZONTAL PIXELS IN THE 640 PIXEL MODE 

COMPARE THE SUBCOMMAND TO THE MAXIMUM PERMISSABLE 

ILLEGAL FUNCTION CALL IF SUBCOMMAND TOO BIG 

THIS INSTRUCTION IS USELESS 

CHECK THE COMMAND COUNTER 

BRANCH IF NO COMMANDS LEFT 

GET ANOTHER COMMAND 

CLEAR CARRY IF NUMERIC 

BRANCH IF MORE NUMERIC DATA TO CONVERT 

ADD ONE TO THE COMMAND COUNTER 



* MOVE THE COMMAND STRING BACK ONE 

LOAD ACCD WITH THE VALUE OF THE SUBCOMMAND 



* STRIP 


A DECIMAL ASCII VALUE FROM T 


LF5C1 


SUBA 


#'0 




STA 


VD7 




LDD 


VD3 




BSR 


LF5FD 




ADDB 


VD7 




ADCA 


#$00 




STD 


VD3 




LDA 


HRMODE 




CMPA 


#$02 




BGT 


LF5DA 




LDD 


#320-1 




BRA 


LF5DD 


LF5DA 


LDD 


#640-1 


LF5DD 


CMPD 


VD3 




LBLT 


ILLFUNC 




LDD 


VD3 




TST 


VD8 




BEQ 


LF5FA 




JSR 


LF591 




JSR 


LF608 




BCC 


LF5C1 


LF5F2 


INC 


VD8 




LDX 


VD9 




LEAX 


$-01, X 




STX 


VD9 


LF5FA 


LDD 
RTS 


VD3 


* MULTIPLY ACCD BY TEN 


LF5FD 


ALSB 
ROLA 






PSHS 


B,A 




ALSB 






ROLA 






ALSB 






ROLA 






ADDD 


,s++ 




RTS 




* CLEAR 


THE CARRY FLAG IF ACCA CONTA 


LF608 


CMPA 


#'0' 




BCS 


LF610 




SUBA 


#'9'+l 




SUBA 


#-('9'+l) 


LF610 


RTS 




* INTERPRET THE CURRENT COMMAND STRI 


LF611 


LDX 


VD9 




PSHS 


X 




JSR 


LF591 




JSR 


LB3A2 




LBCS 


ILLFUNC 


LF61F 


JSR 


LF591 




CMPA 


#' ;' 




BNE 


LF61F 




PULS 


X 




LDU 


CHARAD 




PSHS 


U 




STX 


CHARAD 




JSR 


LB284 




PULS 


X 




STX 


CHARAD 




RTS 




* WIDTH 






WIDTH 


CLR 


HRMODE 




LBRN 


RAMLINK 




CMPA 


#$00 




BEQ 


LF64F 




JSR 


EVALEXPB 




CMPB 


#32 




BEQ 


COL32 




CMPB 


#40 




BEQ 


COL40 




CMPB 


#80 




BEQ 


COL80 


LF64F 


JMP 


ILLFUNC 


* 32 COLUMNS 




COL32 


CLRA 






STA 


HRWIDTH 




JSR 


LA928 




LBSR 


SETTEXT 




RTS 




* 40 COLUMNS 




COL40 


LDA 


#$01 




STA 


HRWIDTH 




LBSR 


LF772 




LDA 


#40 




LDB 


#ROWMAX 




STD 


H. COLUMN 




LDD 


#HRSCREEN+40*ROWMAX*2 



MULTIPLY ACCD BY 2 
SAVE ACCD TIME 2 



NOW ACCD = ACCD * 8 

ADD ACCD*2; THE RESULT IS NOW ACCD*10 



A NUMERIC ASCII VALUE ($30-$39) 

RETURN IF LESS THAN ASCII ZERO 

SET CARRY IF NOT 0-9 

AS IF IT WERE A BASIC VARIABLE 

GET THE COMMAND POINTER 

SAVE IT 

GET A COMMAND STRING CHARACTER 

SET CARRY IF NOT UPPER CASE ALPHA 

ILLEGAL FUNCTION CALL ERROR IF NOT ALPHA - ILLEGAL VARIABLE NAME 

GET COMMAND STRING CHARACTER 

CHECK FOR A SEMICOLON (SUBCOMMAND SEPARATOR) 

LOOP UNTIL SEMICOLON FOUND 

GET THE START OF THE VARIABLE NAME 

GET THE CURRENT ADDRESS OF THE VARIABLE NAME 

SAVE IT 

PUT THE COMMAND POINTER IN PLACE OF BASIC'S INPUT POINTER 

EVALUATE AN ALPHA EXPRESSION 

GET BASIC'S POINTER BACK 

RESTORE BASIC'S INPUT POINTER 



TURN OFF HI-RES GRAPHICS MODE 

RAM HOOK 

TEST FOR END OF LINE - NO ARGUMENT GIVEN 

•FC' ERROR IF NO ARGUMENT 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

32 COLUMNS 

40 COLUMNS 

80 COLUMNS 

ILLEGAL FUNCTION CALL ERROR 



32 COLUMN MODE FLAG 
SAVE THE HI-RES TEXT MODE 
CLEAR THE 32 COLUMN SCREEN 
SETUP THE VIDEO MODE REGISTERS 



40 COLUMN MODE FLAG 

SAVE THE HI-RES TEXT MODE 

PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

40 COLUMNS 

MAXIMUM NUMBER OF ROWS 

SAVE THE NUMBER OF COLUMNS AND ROWS 

END OF THE HI-RES TEXT SCREEN 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3265 
3266 
3267 
3268 
3269 
327EI 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 



F66D FD FE 06 
F670 8D 1A 
F672 17 01 03 
F675 17 E9 Al 
F678 39 



F679 86 02 

F67B 97 E7 

F67D 17 00 F2 

F680 86 50 

F682 C6 18 

F684 FD FE 04 

F687 CC 2F 00 

F68A 20 El 

F68C 8E 20 00 

F68F 10 21 09 6D 

F693 BF FE 00 

F696 86 20 

F698 F6 FE 08 

F69B ED 81 

F69D BC FE 06 

F6A0 25 F9 

F6A2 8E 20 00 

F6A5 4F 

F6A6 B7 FE 02 

F6A9 B7 FE 03 

F6AC 39 



F6AD 
F6AF 
F6B3 
F6B5 
F6B8 
F6B9 
F6BB 
F6BD 
F6BF 
F6C0 
F6C4 
F6C6 
F6C9 
F6CC 
F6CF 
F6D1 
F6D4 
F6D7 
F6DA 
F6DC 
F6DF 
F6E0 
F6E3 
F6E5 
F6E7 
F6EA 
F6ED 
F6F0 
F6F2 
F6F4 



35 01 

10 21 09 4D 

27 2B 

BD B7 0B 

5D 

27 25 

CI 08 

22 28 

5A 

31 8D EF B4 

A6 A5 

B7 FF 9A 

17 00 9A 

F7 FE 08 

86 20 

17 00 9E 

8E 20 00 

BF FE 00 

8D BF 

17 00 99 

39 

17 00 8F 

8D A7 

20 F5 

7F FE 08 

B6 E6 78 

B7 FF 9A 

8D 74 

CI 64 

27 3A 



F6F6 8D 7A 

F6F8 8D 92 

F6FA 8D 7C 

F6FC 8E F7 01 

F6FF 7E B9 9C 



LF66D 


STD 


H.DISPEN 






BSR 


LF68C 






LBSR 


LF778 






LBSR 


SETTEXT 






RTS 






* 80 COLUMNS 






COL80 


LDA 


#$02 






STA 


HRWIDTH 






LBSR 


LF772 






LDA 


#80 






LDB 


#ROWMAX 






STD 


H. COLUMN 






LDD 


#HRSCREEN+80*ROWMAX" 


*2 




BRA 


LF66D 




LF68C 


LDX 


#HRESSCRN 






LBRN 


RAMLINK 






STX 


H.CRSLOC 






LDA 


#SPACE 






LDB 


H.CRSATT 




LF69B 


STD 


,X++ 






CMPX 


H.DISPEN 






BCS 


LF69B 






LDX 


#HRESSCRN 






CLRA 








STA 


H.CURSX 






STA 


H.CURSY 






RTS 






* CLS PATCH ENTERED FROM $8C4C 




ALINK23 


PULS 


CC 






LBRN 


RAMLINK 






BEQ 


LF6E0 






JSR 


EVALEXPB 






TSTB 








BEQ 


LF6E0 






CMPB 


#$08 






BHI 


LF6E7 






DECB 








LEAY 


IM.PALET.PC 






LDA 


B,V 






STA 


V. BORDER 






LBSR 


LF766 






STB 


H.CRSATT 






LDA 


#SPACE 






LBSR 


LF772 






LDX 


#HRESSCRN 






STX 


H.CRSLOC 






BSR 


LF69B 




LF6DC 


LBSR 
RTS 


LF778 




LF6E0 


LBSR 


LF772 






BSR 


LF68C 






BRA 


LF6DC 




LF6E7 


CLR 


H.CRSATT 






LDA 


IM.PALET 






STA 


V. BORDER 






BSR 


LF766 






CMPB 


#100 






BEQ 


LF730 






BSR 


LF772 






BSR 


LF68C 






BSR 


LF778 






LDX 


#MICROMS-l 






JMP 


STRINOUT 





MICROWARE COMMERCIAL 



F702 4D 69 63 72 6F 77 MICROMS 

F708 61 72 65 20 53 79 

F70E 73 74 65 6D 73 20 

F714 43 6F 72 70 2E 

F719 0D 00 LF719 



FCB 



'T.Harri s & T. Earles' 



$0D, 



SAVE THE END OF THE HI-RES TEXT SCREEN 
RESET HI-RES TEXT SCREEN 
PUT BLOCK 7.1 INTO LOGICAL BLOCK 1 
SETUP THE VIDEO MODE REGISTERS 



80 COLUMN MODE FLAG 

SAVE THE HI-RES TEXT MODE 

PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

80 COLUMNS 

MAXIMUM NUMBER OF ROWS 

SAVE THE NUMBER OF COLUMNS AND ROWS 

END OF THE HI-RES TEXT SCREEN 



POINT X TO THE TOP OF THE HI-RES TEXT SCREEN 

RAM HOOK 

SAVE THE START OF THE HI-RES TEXT SCREEN 

INITIALIZE CHARACTERS TO SPACES 

GET THE CHARACTER ATTRIBUTES 

SAVE THE CHARACTER AND ATTRIBUTES IN HI-RES TEXT SCREEN 

COMPARE TO THE END OF HI-RES TEXT SCREEN 

LOOP UNTIL ALL MEMORY INITIALIZED 

RESET X TO THE TOP OF THE SCREEN 

SET THE CURSOR X COORDINATE (COLUMN) TO ZERO 
SET THE CURSOR Y COORDIANTE (ROW) TO ZERO 



RESTORE THE ZERO FLAG 

RAM HOOK 

CLEAR THE SCREEN CURSOR ATTRIBUTES IF NO ARGUMENT 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

TEST ARGUMENT 

BRANCH IF CLS 

CHECK FOR CLS 8 

BRANCH IF > CLS 8 

CHANGE 1-8 TO 0-7 

POINT TO THE PALETTE REGISTER IMAGES 

GET THE COLOR IN THE PALETTE REGISTER 

AND SAVE IT AS THE NEW BORDER COLOR 

SET THE BORDER COLOR IN THE 40 & 80 COLUMN VIDEO MODE IMAGES 

SAVE THE ADJUSTED CLS ARGUMENT AS THE NEW ATTRIBUTE BYTE 

PUT THE HI-RES TEXT SCREEN INTO LOGICAL BLOCK 1 

POINT X TO THE TOP OF THE HI-RES TEXT SCREEN 

PUT THE CURSOR AT THE TOP OF THE SCREEN 

CLEAR THE SCREEN 

REMOVE THE HI-RES TEXT SCREEN FROM THE LOGICAL ADDRESS SPACE 

PUT THE HI-RES TEXT SCREEN INTO LOGICAL BLOCK 1 

CLEAR THE HI-RES TEXT SCREEN 

PUT BLOCK 7.1 BACK INTO LOGICAL BLOCK 1 

RESET THE ATTRIBUTE BYTE TO ZERO 

GET THE COLOR IN PALETTE REGISTER 

AND SAVE IT AS THE NEW BORDER COLOR 

ALSO SAVE IT IN THE 40 AND 80 COLUMN VIDEO REGISTER IMAGES 

CHECK FOR CLS 100 

IF CLS 100, THEN PRINT THE AUTHORS' NAMES - THIS WILL ONLY BE 

DONE THE FIRST TIME CLS 100 IS EXECUTED, THIS CODE WILL BE 

OVERWRITTEN BY NOPs WHEN THE AUTHORS' NAMES ARE DISPLAYED. 

PUT THE HI-RES TEXT SCREEN INTO LOGICAL BLOCK 1 

CLEAR THE HI-RES TEXT SCREEN 

PUT BLOCK 7.1 BACK INTO LOGICAL BLOCK 1 

POINT TO MICROWARE'S COMMERCIAL MESSAGE 

COPY A STRING TO CONSOLE OUT ($B99C) 



F71B 00 00 00 00 

F721 00 00 00 00 

F727 00 00 00 00 

F72D 00 00 00 

F730 8D 40 

F732 17 FF 57 

F735 8D 41 

F737 8E F7 1A 

F73A BD B9 9C 

F73D 34 10 

F73F 30 8D FF Bl 

F743 86 12 

F745 A7 80 

F747 A7 84 

F749 30 8D FF CE 

F74D A7 80 



* NAMES OF THE AUTHORS 

* THE INITIALIZATION CODE WILL COPY THE AUTHOR'S NAMES INTO THIS SPOT 
AUTHORMS FCB $00, $00, $00, $00, $00, $00 

FCB $00, $00, $00, $00, $00, $00 
FCB $00, $00, $00, $00, $00, $00 
FCB $00, $00, $00 



LF730 BSR 


LF772 


LBSR 


LF68C 


BSR 


LF778 


LDX 


#AUTHORMS-l 


JSR 


STRINOUT 


PSHS 


X 


LEAX 


LF6F4.PC 


LDA 


#$12 


STA 


,x+ 


STA 


,x 


LEAX 


AUTHORMS, PC 


* REPLACE THE 


AUTHORS' NAMI 


LF74D STA 


,x+ 



PUT THE HI-RES TEXT SCREEN INTO LOGICAL BLOCK 1 

CLEAR THE HI-RES TEXT SCREEN 

PUT BLOCK 7.1 BACK INTO LOGICAL BLOCK 1 

POINT TO THE AUTHOR MESSAGE 

COPY A STRING TO CONSOLE OUT 

POINT TO THE INSTRUCTION WHICH BRANCHES TO THIS ROUTINE 

OP CODE OF A NOP 

REPLACE THE BRANCH TO THIS ROUTINE WITH 2 NOPs MAKING IT SO 

THAT THIS ROUTINE MAY ONLY BE ENTERED ONE TIME 

POINT TO THE AUTHORS CODED NAMES 



NAMES AND THE CODE THAT DISPLAYS THEM WITH NOPs 
SAVE A NOP 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3361 


F74F 


8C 


F7 


4D 


3362 


F752 


25 


F9 




3363 


F754 


35 


10 




3364 


F756 


39 






3365 










3366 










3367 


F757 


0D 


E7 




3368 


F759 


26 


Ob 




3369 


F75B 


BD 


A9 


28 


337EI 


F75E 


7E 


A3 


90 


3371 


F761 


17 


FF 


7C 


3372 


F764 


20 


F8 




3373 










3374 










3375 


F766 


34 


20 




3376 


F768 


31 


8D 


E8 CF 


3377 


F76C 


A7 


23 




3378 


F76E 


A7 


2C 




3379 


F770 


35 


A0 




3380 










3381 


F772 


1A 


50 




3382 


F774 


17 


E9 


3E 


3383 


F777 


39 






3384 


F778 


17 


E9 


1C 


3385 


F77B 


1C 


AF 




3386 


F77D 


39 






3387 










3388 


F77E 


8D 


07 




3389 


F780 


BD 


Al 


CB 


3390 


F783 


27 


F9 




3391 


F785 


35 


94 




3392 


F787 


0A 


94 




3393 


F789 


26 


ID 




3394 


F78B 


C6 


0B 




3395 


F78D 


D7 


94 




3396 


F78F 


8D 


El 




3397 


F791 


BE 


FE 


00 


3398 


F794 


A6 


01 




3399 


F796 


85 


40 




3400 


F798 


27 


05 




3401 


F79A 


B6 


FE 


08 


3402 


F79D 


20 


05 




3403 


F79F 


B6 


FE 


08 


3404 


F7A2 


8A 


40 




3405 


F7A4 


A7 


01 




3406 


F7A6 


8D 


D0 




3407 


F7A8 


8E 


04 


5E 


3408 


F7AB 


7E 


A7 


D3 


3409 










3410 










3411 


F7AE 


8D 


C2 




3412 


F7B0 


10 


21 


08 4C 


3413 


F7B4 


BE 


FE 


00 


3414 


F7B7 


81 


08 




3415 


F7B9 


26 


09 




3416 










3417 










3418 


F7BB 


8C 


20 


00 


3419 


F7BE 


27 


IE 




3420 


F7C0 


8D 


20 




3421 


F7C2 


20 


1A 




3422 


F7C4 


81 


0D 




3423 


F7C6 


26 


04 




3424 


F7C8 


8D 


5D 




3425 


F7CA 


20 


0B 




3426 


F7CC 


81 


20 




3427 


F7CE 


25 


0E 




3428 


F7D0 


F6 


FE 


08 


3429 


F7D3 


ED 


84 




3430 


F7D5 


8D 


30 




3431 


F7D7 


BC 


FE 


06 


3432 


F7DA 


25 


02 




3433 


F7DC 


8D 


76 




3434 


F7DE 


8D 


98 




3435 


F7E0 


35 


96 




3436 










3437 










3438 


F7E2 


34 


06 




3439 


F7E4 


86 


20 




3440 


F7E6 


F6 


FE 


08 


3441 


F7E9 


ED 


84 




3442 


F7EB 


CA 


40 




3443 


F7ED 


ED 


IE 




3444 


F7EF 


30 


IE 




3445 


F7F1 


BF 


FE 


00 


3446 


F7F4 


FC 


FE 


02 


3447 


F7F7 


4A 






3448 


F7F8 


2A 


08 




3449 


F7FA 


5A 






3450 


F7FB 


F7 


FE 


03 


3451 


F7FE 


B6 


FE 


04 


3452 


F801 


4A 






3453 


F802 


B7 


FE 


02 


3454 


F805 


35 


86 




3455 


F807 


34 


06 




3456 


F809 


86 


20 







CMPX 


#LF74D 




BCS 


LF74D 




PULS 


X 




RTS 




* GET AN 


1 INPUT 


LINE FOR BASIC PATCH 


ALINK27 


TST 


HRWIDTH 




BNE 


LF761 




JSR 


LA928 


LF75E 


JMP 


LA390 


LF761 


LBSR 


LF6E0 




BRA 


LF75E 


* SAVE THE VALUE IN ACCA AS THE BOR! 


LF766 


PSHS 


V 




LEAY 


LE8CF.PC 




STA 


$03, Y 




STA 


$0C,Y 




PULS 


Y,PC 


LF772 


ORCC 


#$50 




LBSR 


SELTEXT 




RTS 




LF778 


LBSR 


SETMMU 




ANDCC 


#$AF 




RTS 




* PATCH 


24 - BLINK THE CURSOR PATCH 


ALINK24 


BSR 


LF787 




JSR 


KEYIN 




BEQ 


ALINK24 




PULS 


B,X,PC 


LF787 


DEC 


BLKCNT 




BNE 


LF7A8 




LDB 


#11 




STB 


BLKCNT 




BSR 


LF772 




LDX 


H.CRSLOC 




LDA 


$01, X 




BITA 


#$40 




BEQ 


LF79F 




LDA 


H.CRSATT 




BRA 


LF7A4 


LF79F 


LDA 


H.CRSATT 




ORA 


#$40 


LF7A4 


STA 


$01, X 




BSR 


LF778 


LF7A8 


LDX 


#DEBDEL 




JMP 


LA7D3 



CHECK FOR END OF THE DISPLAY NAME ROUTINE 

LOOP UNTIL DONE 

RESTORE X; THIS AND THE RTS FOLLOWING SHOULD BE PULS X , PC 



CHECK FOR HI-RES TEXT MODE 

BRANCH IF IN A HI-RES TEXT MODE 

CLEAR THE 32 COLUMN SCREEN 

RE-ENTER THE MAIN STREAM OF CODE ($A390) 

RESET THE HI-RES TEXT SCREEN 



POINT TO THE 40 COLUMN MODE REGISTER IMAGE 

SAVE THE BORDER COLOR IN THE 40 COLUMN VIDEO MODE REGISTER IMAGE 

SAVE THE BORDER COLOR IN THE 80 COLUMN VIDEO MODE REGISTER IMAGE 



DISABLE THE INTERRUPTS 

PUT BLOCK 6.6 INTO LOGICAL BLOCK 1 

COPY THE MMU IMAGES INTO THE MMU REGISTERS 
ENABLE IRQ, FIRQ 

ENTERED FROM $A0D4 

BLINK THE CURSOR 

GET A KEY 

LOOP UNTIL A KEY IS PRESSED 

DECREMENT THE CURSOR BLINK DELAY 

IT'S NOT TIME TO BLINK THE CURSOR 

CURSOR BLINK DELAY CONSTANT 

RESET THE CURSOR BLINK DELAY COUNTER 

PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

POINT TO THE CURSOR CHARACTER 

GET THE CURSOR CHARACTER'S ATTRIBUTES 

IS THE UNDERLINE MODE ACTIVE? 

BRANCH IF NOT ACTIVE UNDERLINE 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

PUT IT ON THE SCREEN 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

FORCE THE UNDERLINE ATTRIBUTE 

SAVE THE NEW CURSOR ATTRIBUTES IN THE HI-RES TEXT SCREEN 

RESTORE THE NORMAL BASIC PROGRAM BLOCK TO LOGICAL BLOCK 1 

GET THE KEYBOARD DEBOUNCE DELAY 

GO WAIT A WHILE ($A7D3) 



PATCH 22 - PUT A CHARACTER ON THE SCREEN PATCH ENTERED FROM $BC3D 



ALINK22 BSR LF772 

LBRN RAMLINK 

LDX H.CRSLOC 

CMPA #BS 

BNE LF7C4 



DO A BACKSPACE 
CMPX 
BEQ 
BSR 
BRA 

LF7C4 CMPA 
BNE 
BSR 
BRA 

LF7CC CMPA 
BCS 
LDB 
STD 
BSR 

LF7D7 CMPX 
BCS 
BSR 

LF7DE BSR 
PULS 



HERE 

#HRESSCRN 

LF7DE 

LF7E2 

LF7DE 

#CR 

LF7CC 

LF827 

LF7D7 

#$20 

LF7DE 

H.CRSATT 

,X 

LF807 

H.DISPEN 

LF7DE 

LF854 

LF778 

A,B,X,PC 



DO A HI-RES BACKSPACE HERE 



PSHS 

LDA 

LDB 

STD 

ORB 

STD 

LEAX 

STX 

LDD 

DECA 

BPL 

DECB 

STB 

LDA 

DECA 

STA 

PULS 

PSHS 

LDA 



B,A 

#SPACE 

H.CRSATT 

,X 

#$40 

$-02, X 

$-02, X 

H.CRSLOC 

H.CURSX 

LF802 

H.CURSY 
H. COLUMN 

H.CURSX 
A,B,PC 
B,A 
#$20 



PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

RAM HOOK 

POINT TO THE CURSOR CHARACTER 

BACKSPACE CHARACTER? 

NO 



ARE WE AT THE UPPER LEFT-HAND CORNER OF THE SCREEN? 

YES, DO NOT ALLOW A BACKSPACE 

DO A BACKSPACE ON THE HI-RES SCREEN 

ENTER KEY? 

NO 

DO A CARRIAGE RETURN ON THE HI-RES SCREEN 

CHECK TO SEE IF THE SCREEN SHOULD BE SCROLLED 

CHECK FOR A CONTROL CHARACTER 

DO NOTHING IF A CONTROL CHARACTER 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

PUT THE NEW CHARACTER AND ATTRIBUTES INTO THE HI-RES TEXT SCREEN 

MOVE THE CURSOR FORWARD ONE CHARACTER 

CHECK FOR THE END OF THE HI-RES TEXT SCREEN 

BRANCH IF NOT AT THE END 

SCROLL THE SCREEN UP ONE ROW 

RESTORE THE NORMAL BASIC PROGRAM BLOCK TO LOGICAL BLOCK 1 



SPACE CHARACTER 

GET THE ATTRIBUTES RAM IMAGE 

SAVE A SPACE ON THE SCREEN AT THE OLD CURSOR POSITION 

FORCE THE UNDERLINE ATTRIBUTE 

SAVE AN UNDERLINED SPACE AS THE NEW CURSOR CHARACTER 

MOVE THE CURSOR POINTER BACK TWO 

AND SAVE IT IN RAM 

GET THE COLUMN AND ROW POSITION OF THE OLD CURSOR 

BUMP THE COLUMN NUMBER DOWN ONE 

BRANCH IF NO WRAP-AROUND 

BUMP THE ROW COUNTER DOWN ONE 

SAVE THE NEW CURSOR ROW NUMBER 

GET THE NUMBER OF CHARACTERS PER ROW 

MAKE THE HIGHEST ALLOWABLE COLUMN NUMBER (ZERO IS FIRST) 

SAVE THE NEW CURSOR COLUMN NUMBER 



GET THE CURSOR CHARACTER 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3457 


F80B 


F6 


FE 


08 




LDB 


H.CRSATT 




3458 


F80E 


CA 


40 






ORB 


#$40 




3459 


F810 


30 


02 






LEAX 


$02, X 




3460 


F812 


ED 


84 






STD 


,x 




3461 


F814 


BF 


FE 


00 




STX 


H.CRSLOC 




3462 


F817 


FC 


FE 


02 




LDD 


H.CURSX 




3463 


F81A 


4C 








INCA 






3464 


F81B 


Bl 


FE 


04 




CMPA 


H. COLUMN 




3465 


F81E 


25 


E2 






BCS 


LF802 




3466 


F820 


5C 








INCB 






3467 


F821 


F7 


FE 


03 




STB 


H.CURSY 




3468 


F824 


4F 








CLRA 






3469 


F825 


20 


DB 






BRA 


LF802 




3470 










* DO A HI-RES 


CARRIAGE RETURN 




3471 


F827 


34 


06 




LF827 


PSHS 


B,A 




3472 


F829 


86 


20 






LDA 


#SPACE 




3473 


F82B 


F6 


FE 


08 




LDB 


H.CRSATT 




3474 


F82E 


ED 


81 




LF82E 


STD 


,X++ 




3475 


F830 


34 


02 






PSHS 


A 




3476 


F832 


B6 


FE 


02 




LDA 


H.CURSX 




3477 


F835 


4C 








INCA 






3478 


F836 


B7 


FE 


02 




STA 


H.CURSX 




3479 


F839 


Bl 


FE 


04 




CMPA 


H. COLUMN 




3480 


F83C 


35 


02 






PULS 


A 




3481 


F83E 


25 


EE 






BCS 


LF82E 




3482 


F840 


BF 


FE 


00 




STX 


H.CRSLOC 




3483 


F843 


7F 


FE 


02 




CLR 


H.CURSX 




3484 


F846 


7C 


FE 


03 




INC 


H.CURSY 




3485 


F849 


86 


20 






LDA 


#$20 




3486 


F84B 


F6 


FE 


08 




LDB 


H.CRSATT 




3487 


F84E 


CA 


40 






ORB 


#$40 




3488 


F850 


ED 


84 






STD 


,x 




3489 


F852 


35 


86 






PULS 


A,B,PC 




3490 


















3491 










* SCROLL THE SCREEN 




3492 


F854 


34 


06 




LF854 


PSHS 


B,A 




3493 


F856 


8E 


20 


00 




LDX 


#HRESSCRN 




3494 


F859 


B6 


FE 


04 




LDA 


H. COLUMN 




3495 


F85C 


81 


28 






CMPA 


#40 




3496 


F85E 


26 


0E 






BNE 


LF86E 




3497 


















3498 










* SCROLL A 40 


CHARACTER ROW 




3499 


F860 


EC 


88 


50 


LF860 


LDD 


2*40, X 




3500 


F863 


ED 


81 






STD 


,x++ 




3501 


F865 


8C 


27 


30 




CMPX 


#HRESSCRN+(ROWMAX-l) 


*40*2 


3502 


F868 


25 


F6 






BCS 


LF860 




3503 


F86A 


8D 


0F 




LF86A 


BSR 


LF87B 




3504 


F86C 


35 


86 






PULS 


A,B,PC 




3505 


















3506 










* SCROLL AN 80 CHARACTER SCREEN 




3507 


F86E 


EC 


89 


00 A0 


LF86E 


LDD 


80*2, X 




3508 


F872 


ED 


81 






STD 


,x++ 




3509 


F874 


8C 


2E 


60 




CMPX 


#HRESSCRN+(ROWMAX-l) 


*80*2 


3510 


F877 


25 


F5 






BCS 


LF86E 




3511 


F879 


20 


EF 






BRA 


LF86A 




3512 


















3513 










* FILL THE LAST ROW WITH SPACES 




3514 


F87B 


7F 


FE 


02 


LF87B 


CLR 


H.CURSX 




3515 


F87E 


86 


17 






LDA 


#ROWMAX-l 




3516 


F880 


B7 


FE 


03 




STA 


H.CURSY 




3517 


F883 


86 


20 






LDA 


#SPACE 




3518 


F885 


F6 


FE 


08 




LDB 


H.CRSATT 




3519 


F888 


34 


10 






PSHS 


X 




3520 


F88A 


ED 


81 




LF88A 


STD 


,x++ 




3521 


F88C 


BC 


FE 


06 




CMPX 


H.DISPEN 




3522 


F88F 


26 


F9 






BNE 


LF88A 




3523 


F891 


7F 


FE 


02 




CLR 


H.CURSX 




3524 


F894 


35 


10 






PULS 


X 




3525 


F896 


86 


20 






LDA 


#$20 




3526 


F898 


F6 


FE 


08 




LDB 


H.CRSATT 




3527 


F89B 


CA 


40 






ORB 


#$40 




3528 


F89D 


ED 


84 






STD 


,x 




3529 


F89F 


BF 


FE 


00 




STX 


H.CRSLOC 




3530 


F8A2 


39 








RTS 






3531 


















3532 










* PRINT 


PATCH ENTERED FROM $B902 




3533 


F8A3 


0D 


6F 




ALINK26 


TST 


DEVNUM 




3534 


F8A5 


26 


04 






BNE 


LF8AB 




3535 


F8A7 


0D 


E7 






TST 


HRWIDTH 




3536 


F8A9 


26 


06 






BNE 


LF8B1 




3537 


F8AB 


BD 


A3 


5F 


LF8AB 


JSR 


LA35F 




3538 


F8AE 


7E 


B9 


5F 




JMP 


LB95F 




3539 


F8B1 


17 


FE 


BE 


LF8B1 


LBSR 


LF772 




3540 


F8B4 


7D 


FE 


02 




TST 


H.CURSX 




3541 


F8B7 


34 


01 






PSHS 


CC 




3542 


F8B9 


17 


FE 


BC 




LBSR 


LF778 




3543 


F8BC 


35 


01 






PULS 


CC 




3544 


F8BE 


10 


26 


C0 96 




LBNE 


LB958 




3545 


F8C2 


39 








RTS 






3546 


















3547 










* PRINT 


PATCH ENTERED FROM $B902 




3548 


F8C3 


0D 


E7 




ALINK25 


TST 


HRWIDTH 




3549 


F8C5 


26 


06 






BNE 


LF8CD 




3550 


F8C7 


BD 


A5 


54 




JSR 


LA554 




3551 


F8CA 


7E 


B9 


05 




JMP 


LB905 




3552 


F8CD 


C6 


4E 




LF8CD 


LDB 


#39*2 





GET THE CURSOR ATTRIBUTES RAM IMAGE 

FORCE THE UNDERLINE ATTRIBUTE 

MOVE THE POINTER UP ONE CHARACTER POSITION 

SAVE THE NEW CHARACTER ATTRIBUTES IN THE HI-RES TEXT SCREEN 

SAVE THE NEW CURSOR POSITION 

GET THE OLD CURSOR ROW AND COLUMN NUMBERS 

BUMP THE COLUMN NUMBER UP ONE 

CHECK FOR WRAP-AROUND TO NEXT ROW 

BRANCH IF NO WRAP-AROUND 

BUMP THE ROW NUMBER UP ONE 

SAVE THE NEW ROW NUMBER 

SET THE COLUMN NUMBER TO ZERO 



SPACE CHARACTER 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

SAVE A SPACE CHARACTER AND ADVANCE THE CURSOR POINTER ONE CHARACTER 

GET THE CURSOR'S COLUMN NUMBER 
BUMP IT UP ONE 
SAVE THE NEW COLUMN NUMBER 
HAS IT WRAPPED AROUND? 

BRANCH IF NO WRAP-AROUND 

SAVE THE NEW CURSOR POINTER 

SET THE CURSOR COLUMN NUMBER TO ZERO 

BUMP THE ROW NUMBER UP ONE 

GET THE CURSOR CHARACTER 

ACCB ALREADY CONTAINS THIS VALUE 

FORCE THE UNDERLINE ATTRIBUTE 

SAVE AN UNDERLINED CHARACTER AS THE NEW CURSOR CHARACTER 



POINT TO THE START OF THE HI-RES TEXT SCREEN 

GET THE NUMBER OF CHARACTERS PER ROW 

40 CHARACTERS PER ROW? 

BRANCH IF 80 CHARACTERS PER ROW 



GET A CHARACTER AND ATTRIBUTE FROM ONE ROW DOWN 
AND MOVE THEM UP TO THE PRESENT ROW 
PAST THE END OF THE HI-RES TEXT SCREEN? 
NO, KEEP MOVING CHARACTERS AND ATTRIBUTES 
FILL THE LAST ROW WITH SPACES 



GET A CHARACTER AND ATTRIBUTES FROM ONE ROW DOWN 
AND MOVE THEM UP TO THE PRESENT ROW 
PAST THE END OF THE HI-RES TEXT SCREEN? 
NO, KEEP MOVING CHARACTERS AND ATTRIBUTES 



RESET THE COLUMN NUMBER TO ZERO 

GET THE HIGHEST ROW NUMBER (ZERO IS LOWEST) 

AND SAVE IT AS THE CURRENT ROW NUMBER 

SPACE CHARACTER 

GET THE ATTRIBUTES RAM IMAGE 

SAVE THE CURRENT CHARACTER POINTER 

SAVE A CHARACTER AND ATTRIBUTES TO THE HI-RES TEXT SCREEN 

CHECK FOR THE END OF THE HI-RES TEXT SCREEN 

BRANCH IF NOT AT THE END OF THE HI-RES TEXT SCREEN 

RESET THE COLUMN NUMBER TO ZERO 

RESTORE THE CHARACTER POINTER 

GET THE CURSOR CHARACTER 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

FORCE THE UNDERLINE ATTRIBUTE 

SAVE THE NEW CURSOR CHARACTER 

SAVE THE NEW CURSOR POINTER 



CHECK THE DEVICE NUMBER 

BRANCH IF NOT THE SCREEN 

CHECK THE HI-RES TEXT MODE 

BRANCH IF A HI-RES TEXT MODE IS SET 

SET UP THE PRINT PARAMETERS 

RE-ENTER THE MAIN STREAM OF CODE ($B95F) 

PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

CHECK THE CURSOR'S X COORDINATE 

SAVE THE ZERO FLAG 

RESTORE THE NORMAL BASIC PROGRAM BLOCK TO LOGICAL BLOCK 1 

RESTORE THE ZERO FLAG 

BRANCH IF THE CURSOR IS NOT AT THE START OF THE LINE ($B958) 



CHECK THE HI-RES TEXT MODE 

•HP' ERROR IF THE HI-RES TEXT MODE IS NOT SET 
MOVE THE CURSOR TO THE PROPER PRINT POSITION 
RE-ENTER THE MAIN STREAM OF CODE ($B905) 
■HP' ERROR 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF SUPER EXTENDED BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER ft ZYDHEK 



3553 


F8CF 


7E 


AC 


46 


JMP 


LAC46 


3554 














3555 










* LOCATE 




3556 


F8D2 


D6 


E7 




LOCATE LDB 


HRWIDTH 


3557 


F8D4 


10 


21 


07 28 


LBRN 


RAMLINK 


3558 


F8D8 


27 


F3 




BEQ 


LF8CD 


3559 


F8DA 


34 


04 




PSHS 


B 


3560 


F8DC 


BD 


E7 


B2 


JSR 


LE7B2 


3561 


F8DF 


96 


2C 




LDA 


BINVAL+1 


3562 


F8E1 


35 


04 




PULS 


B 


3563 


F8E3 


CI 


01 




CMPB 


#$01 


3564 


F8E5 


26 


04 




BNE 


LF8EB 


3565 


F8E7 


81 


28 




CMPA 


#40 


3566 


F8E9 


20 


02 




BRA 


LF8ED 


3567 


F8EB 


81 


50 




LF8EB CMPA 


#80 


3568 


F8ED 


10 


24 


BB 59 


LF8ED LBCC 


ILLFUNC 


3569 


F8F1 


D6 


C0 




LDB 


VERBEG+1 


3570 


F8F3 


CI 


18 




CMPB 


#ROWMAX 


3571 


F8F5 


24 


F6 




BCC 


LF8ED 


3572 


F8F7 


34 


06 




PSHS 


B,A 


3573 


F8F9 


17 


FE 


76 


LBSR 


LF772 


3574 


F8FC 


FD 


FE 


02 


STD 


H.CURSX 


3575 


F8FF 


BE 


FE 


00 


LDX 


H.CRSLOC 


3576 


F902 


B6 


FE 


08 


LDA 


H.CRSATT 


3577 


F905 


A7 


01 




STA 


$01, X 


3578 


F907 


B6 


FE 


04 


LDA 


H. COLUMN 


3579 


F90A 


48 






ALSA 




3580 


F90B 


3D 






MUL 




3581 


F90C 


8E 


20 


00 


LDX 


#HRESSCRN 


3582 


F90F 


30 


8B 




LEAX 


D,X 


3583 


F911 


35 


06 




PULS 


A,B 


3584 


F913 


48 






ALSA 




3585 


F914 


IF 


89 




TFR 


A,B 


3586 


F916 


3A 






ABX 




3587 


F917 


B6 


FE 


08 


LDA 


H.CRSATT 


3588 


F91A 


8A 


40 




ORA 


#$40 


3589 


F91C 


A7 


01 




STA 


$01, X 


3590 


F91E 


BF 


FE 


00 


STX 


H.CRSLOC 


3591 


F921 


17 


FE 


54 


LBSR 


LF778 


3592 


F924 


39 






RTS 




3593 














3594 










* HSTAT 




3595 


F925 


0D 


E7 




HSTAT TST 


HRWIDTH 


3596 


F927 


10 


21 


06 D5 


LBRN 


RAMLINK 


3597 


F92B 


27 


A0 




BEQ 


LF8CD 


3598 


F92D 


17 


FE 


42 


LBSR 


LF772 


3599 


F930 


BE 


FE 


00 


LDX 


H.CRSLOC 


3600 


F933 


EC 


84 




LDD 


,x 


3601 


F935 


DD 


CB 




STD 


VCB 


3602 


F937 


FC 


FE 


02 


LDD 


H.CURSX 


3603 


F93A 


DD 


CD 




STD 


VCD 


3604 


F93C 


17 


FE 


39 


LBSR 


LF778 


3605 


F93F 


BD 


B3 


57 


JSR 


LB357 


3606 


F942 


9F 


3B 




STX 


VARDES 


3607 


F944 


BD 


B2 


6D 


JSR 


SYNCOMMA 


3608 


F947 


C6 


01 




LDB 


#$01 


3609 


F949 


BD 


B5 


6D 


JSR 


LB56D 


3610 


F94C 


96 


CB 




LDA 


VCB 


3611 


F94E 


BD 


B5 


11 


JSR 


LB511 


3612 














3613 


F951 


A7 


84 




STA 


,x 


3614 


F953 


BD 


B5 


4C 


JSR 


LB54C 


3615 


F956 


9E 


3B 




LDX 


VARDES 


3616 


F958 


6D 


IF 




TST 


$-01, X 


3617 


F95A 


10 


2A 


B7 F3 


LBPL 


TMERROR 


3618 


F95E 


10 


9E 


52 


LDY 


FPA0+2 


3619 


F961 


C6 


05 




LDB 


#$05 


3620 


F963 


A6 


A0 




LF963 LDA 


,Y+ 


3621 


F965 


A7 


80 




STA 


,x+ 


3622 


F967 


5A 






DECB 




3623 


F968 


26 


F9 




BNE 


LF963 


3624 


F96A 


9E 


0B 




LDX 


TEMPPT 


3625 


F96C 


30 


IB 




LEAX 


$-05, X 


3626 


F96E 


9F 


0B 




STX 


TEMPPT 


3627 


F970 


BD 


B3 


57 


JSR 


LB357 


3628 


F973 


9F 


3B 




STX 


VARDES 


3629 


F975 


BD 


B2 


6D 


JSR 


SYNCOMMA 


3630 


F978 


4F 






CLRA 




3631 


F979 


D6 


CC 




LDB 


VCB+1 


3632 


F97B 


BD 


B4 


F4 


JSR 


GIVABF 


3633 


F97E 


9E 


3B 




LDX 


VARDES 


3634 


F980 


6D 


IF 




TST 


$-01, X 


3635 


F982 


10 


2B 


B7 CB 


LBMI 


TMERROR 


3636 


F986 


BD 


BC 


35 


JSR 


LBC35 


3637 


F989 


BD 


B3 


57 


JSR 


LB357 


3638 


F98C 


9F 


3B 




STX 


VARDES 


3639 


F98E 


BD 


B2 


6D 


JSR 


SYNCOMMA 


3640 


F991 


4F 






CLRA 




3641 


F992 


D6 


CD 




LDB 


VCD 


3642 


F994 


BD 


B4 


F4 


JSR 


GIVABF 


3643 


F997 


9E 


3B 




LDX 


VARDES 


3644 


F999 


6D 


IF 




TST 


$-01, X 


3645 


F99B 


10 


2B 


B7 B2 


LBMI 


TMERROR 


3646 


F99F 


BD 


BC 


35 


JSR 


LBC35 


3647 


F9A2 


BD 


B3 


57 


JSR 


LB357 


3648 


F9A5 


9F 


3B 




STX 


VARDES 



JUMP TO ERROR HANDLER ($AC46) 



IS THE HI-RES TEXT MODE ENABLED? 

RAM HOOK 

•HP' ERROR IF NOT ENABLED 

SAVE THE HI-RES TEXT MODE 

EVALUATE TWO EXPRESSIONS 

GET THE FIRST OF THE TWO EXPRESSIONS (COLUMN NUMBER) 

RESTORE THE FIRST ARGUMENT 

GET BACK THE HI-RES TEXT MODE 

BRANCH IF NOT 40 COLUMN MODE 

40 COLUMNS MAXIMUM IN 40 COLUMN MODE 

DO A RANGE CHECK 

80 COLUMNS MAXIMUM IN 80 COLUMN MODE 

ILLEGAL FUNCTION CALL ERROR 

GET THE SECOND ARGUMENT (ROW NUMBER) 

RANGE CHECK ON THE ROW NUMBER 

•FC ERROR IF ROW NUMBER IS TOO LARGE 

SAVE THE COLUMN AND ROW NUMBERS 

PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

SAVE THE NEW COLUMN AND ROW NUMBERS AS THOSE OF THE CURSOR 

GET THE CURRENT CURSOR POINTER 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

AND SAVE IT AS THE ATTRIBUTES IN THE OLD CURSOR POSITION 

GET THE NUMBER OF CHARACTERS/ROW 

MULTIPLY BY TWO - TWO BYTES PER CHARACTER (CHAR AND ATTR) 

GET THE ROW OFFSET TO THE PROPER CHARACTER 

POINT TO THE START OF THE HI-RES TEXT SCREEN 

ADD ROW OFFSET TO THE START OF THE HI-RES TEXT SCREEN 

RESTORE THE NEW CURSOR COLUMN AND ROW NUMBERS 

MULTIPLY COLUMN NUMBER BY TWO - TWO BYTES PER CHARACTER (CHAR AND ATTR) 

SAVE COLUMN OFFSET IN ACCB 

ADD THE COLUMN OFFSET TO THE CURRENT CURSOR POINTER 

GET THE CURSOR ATTRIBUTES RAM IMAGE 

FORCE UNDERLINE ATTRIBUTE 

SAVE THE NEW CURSOR ATTRIBUTE IN THE HI-RES TEXT SCREEN 

SAVE THE NEW CURSOR POINTER 

RESTORE THE NORMAL BASIC PROGRAM BLOCK TO LOGICAL BLOCK 1 



IS THE HI-RES TEXT MODE ENABLED? 

RAM HOOK 

•HP' ERROR IF HI-RES TEXT MODE NOT ENABLED 

PUT THE HI-RES TEXT SCREEN INTO THE LOGICAL ADDRESS SPACE 

GET THE CURRENT CURSOR POINTER 

GET THE CURSOR CHARACTER ATTRIBUTES 

AND SAVE THEM 

GET THE CURRENT COLUMN AND ROW NUMBER 

AND SAVE THEM 

RESTORE THE NORMAL BASIC PROGRAM BLOCK TO LOGICAL BLOCK 1 

EVALUATE A VARIABLE; RETURN X POINTING TO THE VARIABLE DESCRIPTOR 

SAVE THE VARIABLE DESCRIPTOR 

SYNTAX CHECK FOR A COMMA 

RESERVE SPACE FOR A ONE CHARACTER STRING IN STRING SPACE 

GET THE CURSOR CHARACTER 

THIS IS REALLY A WASTE - THE JSR LB56D ABOVE SHOULD JUST BE A 

JSR LB50D AND THE JSR LB511 WOULD NOT BE NECESSARY 

SAVE THE CURSOR CHARACTER IN THE NEWLY RESERVED STRING SPACE 

PUT THE STRING ONTO THE STRING STACK 

POINT TO THE STRING'S VARIABLE DESCRIPTOR 

CHECK THE SECOND CHARACTER OF THE VARIABLE NAME 

TYPE MISMATCH ERROR IF NUMERIC VARIABLE 

POINT Y TO THE START OF THE STRING DESCRIPTOR 

VARIABLE DESCRIPTORS ARE 5 BYTES LONG 

* COPY THE DATA FROM THE STRING DESCRIPTOR 

* TO THE VARIABLE DESCRIPTOR 
DECREMENT THE DESCRIPTOR COUNTER 
LOOP UNTIL DONE 

* THIS CODE IS DESIGNED TO REMOVE THE ABOVE ALLOCATED STRING FROM 

* THE STRING STACK - IT MAY CAUSE BUGS BECAUSE IT DOESN'T RESET 

* LASTPT; LDX LASTPT, JSR LB675 WOULD BE MUCH BETTER 

EVALUATE A VARIABLE; RETURN X POINTING TO THE VARIABLE DESCRIPTOR 

SAVE THE VARIABLE DESCRIPTOR 

SYNTAX CHECK FOR A COMMA 

ZERO OUT THE MS BYTE OF ACCD 

GET THE CURSOR ATTRIBUTES 

CONVERT ACCD TO FLOATING POINT 

POINT X TO THE VARIABLE DESCRIPTOR 

CHECK THE SECOND CHARACTER OF THE VARIABLE NAME 

TYPE MISMATCH ERROR IF STRING VARIABLE 

PACK FPA0 AND STORE IT IN THE DESCRIPTOR POINTED TO BY X 

EVALUATE A VARIABLE; RETURN X POINTING TO THE VARIABLE DESCRIPTOR 

SAVE THE VARIABLE DESCRIPTOR 

SYNTAX CHECK FOR A COMMA 

ZERO OUT THE MS BYTE OF ACCD 

GET THE X COORDINATE OF THE CURSOR POSITION 

CONVERT ACCD TO FLOATING POINT 

POINT X TO THE VARIABLE DESCRIPTOR 

CHECK THE SECOND CHARACTER OF THE VARIABLE NAME 

TYPE MISMATCH ERROR IF STRING VARIABLE 

PACK FPA0 AND STORE IT IN THE DESCRIPTOR POINTED TO BY X 

EVALUATE A VARIABLE; RETURN X POINTING TO THE VARIABLE DESCRIPTOR 

SAVE THE VARIABLE DESCRIPTOR 
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3649 


F9A7 


4F 








CLRA 




3650 


F9A8 


D6 


CE 






LDB 


VCD+1 


3651 


F9AA 


BD 


B4 


F4 




JSR 


GIVABF 


3652 


F9AD 


9E 


3B 






LDX 


VARDES 


3653 


F9AF 


6D 


IF 






TST 


$-01, X 


3654 


F9B1 


10 


2B 


B7 9C 




LBMI 


TMERROR 


3655 


F9B5 


BD 


BC 


35 




JSR 


LBC35 


3656 


F9B8 


39 








RTS 




3657 
















3658 










* ATTR 






3659 


F9B9 


BD 


B7 


0B 


ATTR 


JSR 


EVALEXPB 


3660 


F9BC 


10 


21 


06 40 




LBRN 


RAMLINK 


3661 


F9C0 


CI 


08 






CMPB 


#$08 


3662 


F9C2 


10 


24 


BA 84 




LBCC 


ILLFUNC 


3663 


F9C6 


58 








ALSB 




3664 


F9C7 


58 








ALSB 




3665 


F9C8 


58 








ALSB 




3666 


F9C9 


34 


04 






PSHS 


B 


3667 


F9CB 


9D 


A5 






JSR 


GETCCH 


3668 


F9CD 


BD 


B2 


6D 




JSR 


SYNCOMMA 


3669 


F9D0 


BD 


B7 


0B 




JSR 


EVALEXPB 


3670 


F9D3 


CI 


08 






CMPB 


#$08 


3671 


F9D5 


10 


24 


BA 71 




LBCC 


ILLFUNC 


3672 


F9D9 


EA 


E4 






ORB 


,s 


3673 


F9DB 


32 


61 






LEAS 


$01, S 


3674 


F9DD 


C4 


3F 






ANDB 


#3F 


3675 


F9DF 


34 


04 






PSHS 


B 


3676 


F9E1 


9D 


A5 






JSR 


GETCCH 


3677 


F9E3 


27 


21 




LF9E3 


BEQ 


LFA06 


3678 


F9E5 


BD 


B2 


6D 




JSR 


SYNCOMMA 


3679 


F9E8 


81 


42 






CMPA 


#'B' 


3680 


F9EA 


26 


0A 






BNE 


LF9F6 


3681 


F9EC 


35 


04 






PULS 


B 


3682 


F9EE 


CA 


80 






ORB 


#$80 


3683 


F9F0 


34 


04 






PSHS 


B 


3684 


F9F2 


9D 


9F 






JSR 


GETNCH 


3685 


F9F4 


20 


ED 






BRA 


LF9E3 


3686 


F9F6 


81 


55 




LF9F6 


CMPA 


#'U' 


3687 


F9F8 


10 


26 


BA 4E 




LBNE 


ILLFUNC 


3688 


F9FC 


35 


04 






PULS 


B 


3689 


F9FE 


CA 


40 






ORB 


#$40 


3690 


FA00 


34 


04 






PSHS 


B 


3691 


FA02 


9D 


9F 






JSR 


GETNCH 


3692 


FA04 


20 


DD 






BRA 


LF9E3 


3693 


FA06 


35 


04 




LFA06 


PULS 


B 


3694 


FA08 


F7 


FE 


08 




STB 


H.CRSATT 


3695 


FA0B 


39 








RTS 




3696 
















3697 
















3698 


FA0C 








LFA0C 


RMB 


1012 


3699 


FE00 








LFE00 


RMB 


256 


3700 


FF00 








LFF00 


RMB 


256 



ZERO OUT THE MS BYTE OF ACCD 

GET THE Y COORDINATE OF THE CURSOR POSITION 

CONVERT ACCD TO FLOATING POINT 

POINT X TO THE VARIABLE DESCRIPTOR 

CHECK THE SECOND CHARACTER OF THE VARIABLE NAME 

TYPE MISMATCH ERROR IF STRING VARIABLE 

PACK FPA0 AND STORE IT IN THE DESCRIPTOR POINTED TO 



EVALUATE EXPRESSION, RETURN VALUE IN ACCB (CHARACTER COLOR) 

RAM HOOK 

8 CHARACTER COLORS MAXIMUM 

ILLEGAL FUNCTION CALL ERROR IF CHARACTER COLOR > 8 



SHIFT THE CHARACTER COLOR INTO BITS 3-6 

SAVE THE SHIFTED COLOR ON THE STACK 

GET THE CURRENT INPUT CHARACTER 

SYNTAX CHECK FOR A COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB (BACKGROUND COLOR) 

8 MAXIMUM BACKGROUND COLORS 

ILLEGAL FUNCTION CALL ERROR IF > 8 

'OR' IN THE CHARACTER COLOR 

REMOVE TEMPORARY CHARACTER FROM STACK; ORB ,S+ ABOVE IS MORE EFFICIENT 

MASK OFF BITS 6,7; THIS INSTRUCTION IS UNNECESSARY 

SAVE THE CHARACTER AND BACKGROUND COLORS ON THE STACK 

GET THE CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR A COMMA 

CHECK FOR THE BLINK ATTRIBUTE FLAG 

BRANCH IF NOR BLINK ATTRIBUTE FLAG 

SET BIT 7 WHICH IS THE BLINK ATTRIBUTE BIT 

GET A CHARACTER FROM BASIC'S INPUT LINE 
KEEP CHECKING FOR ATTRIBUTE FLAGS 
CHECK FOR THE UNDERLINE ATTRIBUTE 
ILLEGAL FUNCION CALL ERROR 

SET BIT 6 WHICH IS THE UNDERLINE ATTRIBUTE BIT 

GET A CHARACTER FROM BASIC'S INPUT LINE 
KEEP CHECKING FOR ATTRIBUTE FLAGS 
GET THE NEW ATTRIBUTE BYTE FROM THE STACK 
AND SAVE IT AS THE CURSOR ATTRIBUTES 



UNUSED BYTES 

$FE00 SECONDARY VECTORS AREA 

$FF00 INPUT70UTPUT AREA 
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ALINK12 


E288 


EXECCART 


A05E 


IM.MMU 


E0E1 


LB657 


B657 


LC271 


C271 


ALINK14 


E389 


FP0EXP 


004F 


IM.PALET 


E678 


LB70E 


B70E 


LC275 


C275 


ALINK15 


E429 


FPA0 


0050 


IM.RGB 


E664 


LB734 


B734 


LC277 


C277 


ALINK16 


E413 


FRETOP 


0021 


IM.TEXT 


E032 


LB73D 


B73D 


LC278 


C278 


ALINK17 


E532 


FUNDIC20 


E264 


INIT0 


FF90 


LB740 


B740 


LC28A 


C28A 


ALINK18 


E3B4 


FUNDIS20 


E27E 


INIT1 


FF91 


LB89D 


B89D 


LC28C 


C28C 


ALINK19 


E4D0 


G1BITPIX 


E7FF 


INT. FLAG 


FEED 


LB8D7 


B8D7 


LC28D 


C28D 


ALINK2 


E138 


G2BITBIX 


E820 


INTCNV 


B3ED 


LB905 


B905 


LC294 


C294 


ALINK20 


E470 


G4BITPIX 


E83F 


INTIMAGE 


C359 


LB958 


B958 


LC296 


C296 


ALINK21 


E502 


GETBLOK0 


E00A 


KEYIN 


A1CB 


LB95C 


B95C 


LC297 


C297 


ALINK22 


F7AE 


GETCCH 


00A5 


L4000 


4000 


LB95F 


B95F 


LC299 


C299 


ALINK23 


F6AD 


GETNCH 


009F 


L80B8 


80B8 


LB9D7 


B9D7 


LC29B 


C29B 


ALINK24 


F77E 


GETTASK0 


E00C 


L80E7 


80E7 


LBA92 


BA92 


LC29C 


C29C 


ALINK25 


F8C3 


GETTASK1 


E00E 


L8800 


8800 


LBC35 


BC35 


LC29E 


C29E 


ALINK26 


F8A3 


GETTEXT 


E008 


L883F 


883F 


LBCC8 


BCC8 


LC2A0 


C2A0 


ALINK27 


F757 


GIVABF 


B4F4 


LA0CE 


A0CE 


LBDD9 


BDD9 


LC2A1 


C2A1 


ALINK28 


E297 


H.BCOLOR 


FE0B 


LA35F 


A35F 


LC000 


C000 


LC2A3 


C2A3 


ALINK29 


E29D 


H. COLUMN 


FE04 


LA390 


A390 


LC00D 


C00D 


LC2A5 


C2A5 


ALINK3 


E172 


H.CRSATT 


FE08 


LA3C6 


A3C6 


LC01B 


C01B 


LC2A6 


C2A6 


ALINK4 


E192 


H.CRSLOC 


FE00 


LA554 


A554 


LC02F 


C02F 


LC2A8 


C2A8 


ALINK5 


E1A6 


H.CURSX 


FE02 


LA7D3 


A7D3 


LC056 


C056 


LC2AA 


C2AA 


ALINK6A 


E3F8 


H.CURSY 


FE03 


LA928 


A928 


LC091 


C091 


LC2AB 


C2AB 


ALINK6B 


E40C 


H.DISPEN 


FE06 


LAC33 


AC33 


LC0B1 


C0B1 


LC2AE 


C2AE 


ALLCOL 


00B5 


H.ERLINE 


FE13 


LAC44 


AC44 


LC0C2 


C0C2 


LC2B0 


C2B0 


ANGLE 


00E8 


H.ERRBRK 


FE17 


LAC46 


AC46 


LC0C9 


C0C9 


LC2B1 


C2B1 


ATTR 


F9B9 


H. ERROR 


FE10 


LAC49 


AC49 


LC0DC 


C0DC 


LC2B2 


C2B2 


AUTHORMS 


F71B 


H.FCOLOR 


FE0A 


LAC65 


AC65 


LC0F1 


C0F1 


LC2B4 


C2B4 


AUTHPIC 


C405 


H.ONBRK 


FE0C 


LAC76 


AC76 


LC0F6 


C0F6 


LC2B5 


C2B5 


BAS20ERR 


E4CC 


H.ONBRKS 


FE15 


LACA0 


ACA0 


LC106 


C106 


LC2B8 


C2B8 


BASIC 


A000 


H.ONERR 


FE0E 


LAD05 


AD05 


LC10C 


C10C 


LC2BA 


C2BA 


BEGMOVE 


C03F 


H.ONERRS 


FEU 


LAD19 


AD19 


LC137 


C137 


LC2BB 


C2BB 


BINVAL 


002B 


H.PBUF 


FE19 


LAD43 


AD43 


LC165 


C165 


LC2BF 


C2BF 


BLKCNT 


0094 


H.PCOUNT 


FE18 


LADC4 


ADC4 


LC175 


C175 


LC2C1 


C2C1 


BRK 


E3E6 


HBUFF 


ED58 


LADD4 


ADD4 


LC180 


C180 


LC2C2 


C2C2 


BUTTON 


E5B1 


HCALPOS 


E7DA 


LADF4 


ADF4 


LC185 


C185 


LC2C6 


C2C6 


CALTABLE 


E7DE 


HCIRCLE 


EA49 


LAE09 


AE09 


LC18C 


C18C 


LC2C8 


C2C8 


CHARAD 


00A6 


HCLS 


E6CF 


LAE11 


AE11 


LC19A 


C19A 


LC2C9 


C2C9 


CHGFLG 


00DB 


HCOLOR 


E6F4 


LAEBB 


AEBB 


LC1AA 


C1AA 


LC2CB 


C2CB 


CIRCDATA 


EB99 


HDRAW 


F39D 


LAEEB 


AEEB 


LC1B1 


C1B1 


LC2CD 


C2CD 


CLRHIRES 


E6D8 


HGET 


EDE5 


LAF45 


AF45 


LC1DE 


C1DE 


LC2CE 


C2CE 


CMP 


E676 


HLINE 


E882 


LAF67 


AF67 


LC1E7 


C1E7 


LC2D1 


C2D1 


C0L32 


F652 


HORBEG 


00BD 


LB141 


B141 


LC1F0 


C1F0 


LC2D3 


C2D3 


COL40 


F65C 


HORBYT 


00B9 


LB156 


B156 


LC20A 


C20A 


LC2D4 


C2D4 


COL80 


F679 


HORDEF 


00C7 


LB262 


B262 


LC22A 


C22A 


LC2D8 


C2D8 


COMDIC20 


E1C5 


HOREND 


00C3 


LB267 


B267 


LC24E 


C24E 


LC2DA 


C2DA 


COMDIS20 


E236 


HPAINT 


EBF5 


LB26A 


B26A 


LC257 


C257 


LC2DB 


C2DB 


CURLIN 


0068 


HPOINT 


E85C 


LB26F 


B26F 


LC259 


C259 


LC2DE 


C2DE 


DCNVEC 


C004 


HPRINT 


EF3F 


LB277 


B277 


LC25A 


C25A 


LC2E0 


C2E0 


DEVNUM 


006F 


HPUT 


EDED 


LB284 


B284 


LC25B 


C25B 


LC2E1 


C2E1 


DISK20MS 


E2A3 


HRESBUFF 


C000 


LB2CE 


B2CE 


LC25D 


C25D 


LC2E4 


C2E4 


DISK21MS 


E316 


HRESET 


E765 


LB357 


B357 


LC25E 


C25E 


LC2E6 


C2E6 


DOSBAS 


C000 


HRMODE 


00E6 


LB3A2 


B3A2 


LC261 


C261 


LC2E7 


C2E7 


EBCOMTAB 


E162 


HRWIDTH 


00E7 


LB3E9 


B3E9 


LC263 


C263 


LC2EA 


C2EA 


ENDMOVE 


C36C 


HSCREEN 


E688 


LB4F3 


B4F3 


LC264 


C264 


LC2EC 


C2EC 


ERLIN 


E4FD 


HSET 


E761 


LB511 


B511 


LC267 


C267 


LC2ED 


C2ED 


ERNO 


E4E9 


HSTAT 


F925 


LB516 


B516 


LC269 


C269 


LC2F0 


C2F0 


ERR 


E3D4 


ILLFUNC 


B44A 


LB54C 


B54C 


LC26A 


C26A 


LC2F2 


C2F2 


EVALEXPB 


B70B 


IM.CMP 


E654 


LB56D 


B56D 


LC26E 


C26E 


LC2F3 


C2F3 


EXBAS 


8000 


IM. GRAPH 


E070 


LB654 


B654 


LC270 


C270 


LC2FB 


C2FB 
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LC2FD 


C2FD 


LE1DD 


E1DD 


LE36A 


E36A 


LE73B 


E73B 


LEA29 


EA29 


LC2FE 


C2FE 


LE1E1 


E1E1 


LE36B 


E36B 


LE759 


E759 


LEA2B 


EA2B 


LC301 


C301 


LE1E7 


E1E7 


LE386 


E386 


LE75D 


E75D 


LEA2D 


EA2D 


LC303 


C303 


LE1ED 


E1ED 


LE3C2 


E3C2 


LE76A 


E76A 


LEA33 


EA33 


LC304 


C304 


LE1F4 


E1F4 


LE3CF 


E3CF 


LE77F 


E77F 


LEA34 


EA34 


LC307 


C307 


LE1F9 


E1F9 


LE424 


E424 


LE782 


E782 


LEA3D 


EA3D 


LC309 


C309 


LE1FD 


E1FD 


LE426 


E426 


LE788 


E788 


LEA44 


EA44 


LC30A 


C30A 


LE201 


E201 


LE430 


E430 


LE792 


E792 


LEA45 


EA45 


LC30D 


C30D 


LE206 


E206 


LE43F 


E43F 


LE7AA 


E7AA 


LEA59 


EA59 


LC322 


C322 


LE20C 


E20C 


LE446 


E446 


LE7AD 


E7AD 


LEA95 


EA95 


LC334 


C334 


LE20F 


E20F 


LE449 


E449 


LE7B0 


E7B0 


LEA9F 


EA9F 


LC33B 


C33B 


LE212 


E212 


LE458 


E458 


LE7B2 


E7B2 


LEAB3 


EAB3 


LC349 


C349 


LE218 


E218 


LE466 


E466 


LE7B9 


E7B9 


LEAC7 


EAC7 


LC351 


C351 


LE21D 


E21D 


LE47D 


E47D 


LE7BF 


E7BF 


LEAE7 


EAE7 


LC352 


C352 


LE221 


E221 


LE488 


E488 


LE7CD 


E7CD 


LEB13 


EB13 


LC355 


C355 


LE227 


E227 


LE496 


E496 


LE7D0 


E7D0 


LEB1E 


EB1E 


LC356 


C356 


LE22C 


E22C 


LE49F 


E49F 


LE7D7 


E7D7 


LEB20 


EB20 


LC35A 


C35A 


LE22F 


E22F 


LE4B0 


E4B0 


LE7E6 


E7E6 


LEB32 


EB32 


LD67F 


D67F 


LE232 


E232 


LE4B3 


E4B3 


LE875 


E875 


LEB3D 


EB3D 


LDC05 


DC05 


LE238 


E238 


LE4C7 


E4C7 


LE87B 


E87B 


LEB3F 


EB3F 


LE010 


E010 


LE23A 


E23A 


LE4CE 


E4CE 


LE899 


E899 


LEB48 


EB48 


LE033 


E033 


LE23C 


E23C 


LE4F4 


E4F4 


LE8B3 


E8B3 


LEB53 


EB53 


LE03B 


E03B 


LE23E 


E23E 


LE4F9 


E4F9 


LE8B4 


E8B4 


LEB5C 


EB5C 


LE03C 


E03C 


LE240 


E240 


LE4FA 


E4FA 


LE8EB 


E8EB 


LEB5F 


EB5F 


LE044 


E044 


LE242 


E242 


LE51E 


E51E 


LE8F2 


E8F2 


LEB60 


EB60 


LE045 


E045 


LE244 


E244 


LE528 


E528 


LE8F4 


E8F4 


LEB73 


EB73 


LE063 


E063 


LE246 


E246 


LE52B 


E52B 


LE8F6 


E8F6 


LEB7B 


EB7B 


LE06D 


E06D 


LE248 


E248 


LE58E 


E58E 


LE905 


E905 


LEB91 


EB91 


LE06E 


E06E 


LE24A 


E24A 


LE59A 


E59A 


LE906 


E906 


LEB9B 


EB9B 


LE06F 


E06F 


LE24C 


E24C 


LE5AF 


E5AF 


LE913 


E913 


LEB9D 


EB9D 


LE071 


E071 


LE24E 


E24E 


LE5D5 


E5D5 


LE921 


E921 


LEBA1 


EBA1 


LE079 


E079 


LE250 


E250 


LE5D9 


E5D9 


LE92F 


E92F 


LEBA5 


EBA5 


LE07A 


E07A 


LE252 


E252 


LE5E3 


E5E3 


LE931 


E931 


LEBA9 


EBA9 


LE08B 


E08B 


LE254 


E254 


LE5EA 


E5EA 


LE93E 


E93E 


LEBAB 


EBAD 


LE0CB 


E0CB 


LE256 


E256 


LE5EC 


E5EC 


LE94E 


E94E 


LEBAF 


EBB1 


LE0E9 


E0E9 


LE258 


E258 


LE5FA 


E5FA 


LE95D 


E95D 


LEBB5 


EBB5 


LE0F1 


E0F1 


LE25A 


E25A 


LE600 


E600 


LE96C 


E96C 


LEBB9 


EBB9 


LE0F7 


E0F7 


LE25C 


E25C 


LE606 


E606 


LE977 


E977 


LEBBD 


EBBD 


LE148 


E148 


LE25E 


E25E 


LE60C 


E60C 


LE988 


E988 


LEBCA 


EBCA 


LE14D 


E14D 


LE260 


E260 


LE62A 


E62A 


LE98D 


E98D 


LEBCB 


EBCB 


LE152 


E152 


LE262 


E262 


LE634 


E634 


LE9AD 


E9AD 


LEBEA 


EBEA 


LE158 


E158 


LE269 


E269 


LE648 


E648 


LE9B1 


E9B1 


LEC05 


EC05 


LE15B 


E15B 


LE26F 


E26F 


LE64A 


E64A 


LE9B8 


E9B8 


LEC1D 


EC1D 


LE15D 


E15D 


LE275 


E275 


LE693 


E693 


LE9B9 


E9B9 


LEC47 


EC47 


LE163 


E163 


LE279 


E279 


LE69C 


E69C 


LE9BF 


E9BF 


LEC4A 


EC4A 


LE165 


E165 


LE280 


E280 


LE6A5 


E6A5 


LE9C6 


E9C6 


LEC51 


EC51 


LE167 


E167 


LE282 


E282 


LE6B9 


E6B9 


LE9CC 


E9CC 


LEC6A 


EC6A 


LE168 


E168 


LE284 


E284 


LE6BC 


E6BC 


LE9CD 


E9CD 


LEC6E 


EC6E 


LE16A 


E16A 


LE286 


E286 


LE6CB 


E6CB 


LE9D1 


E9D1 


LEC80 


EC80 


LE16C 


E16C 


LE2C0 


E2C0 


LE6D6 


E6D6 


LE9DB 


E9DB 


LEC83 


EC83 


LE18B 


E18B 


LE2C1 


E2C1 


LE6E4 


E6E4 


LE9E1 


E9E1 


LEC86 


EC86 


LE19A 


E19A 


LE2DA 


E2DA 


LE6EF 


E6EF 


LE9F0 


E9F0 


LEC88 


EC88 


LE19E 


E19E 


LE2DB 


E2DB 


LE705 


E705 


LEA04 


EA04 


LEC9B 


EC9B 


LE1AE 


E1AE 


LE2F7 


E2F7 


LE70D 


E70D 


LEA0A 


EA0A 


LECA5 


ECA5 


LE1B2 


E1B2 


LE313 


E313 


LE70E 


E70E 


LEA0D 


EA0D 


LECB7 


ECB7 


LE1BF 


E1BF 


LE333 


E333 


LE711 


E711 


LEA16 


EA16 


LECBA 


ECBA 


LE1CA 


E1CA 


LE334 


E334 


LE718 


E718 


LEA21 


EA21 


LECBE 


ECBE 


LE1D1 


E1D1 


LE33D 


E34D 


LE72F 


E72F 


LEA25 


EA25 


LECC7 


ECC7 


LE1D8 


E1D8 


LE33E 


E34E 


LE731 


E731 


LEA27 


EA27 


LECCD 


ECCD 
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LECD1 


ECD1 


LEF7F 


EF7F 


LF1DD 


F1DD 


LF3C5 


F3C5 


LF6DC 


F6DC 


LECE8 


ECE8 


LEF8E 


EF8E 


LF1E5 


F1E5 


LF3CF 


F3CF 


LF6E0 


F6E0 


LECEA 


ECEA 


LEF96 


EF96 


LF1ED 


F1ED 


LF3E6 


F3E6 


LF6E7 


F6E7 


LECF1 


ECF1 


LEFA3 


EFA3 


LF1F5 


F1F5 


LF3EE 


F3EE 


LF719 


F719 


LED01 


ED01 


LEFAD 


EFAD 


LF1FD 


F1FD 


LF417 


F417 


LF730 


F730 


LED15 


ED15 


LEFD9 


EFD9 


LF205 


F205 


LF445 


F445 


LF74D 


F74D 


LED20 


ED20 


LEFDB 


EFDB 


LF20D 


F20D 


LF451 


F451 


LF75E 


F75E 


LED2E 


ED2E 


LEFFE 


EFFE 


LF215 


F215 


LF45C 


F45C 


LF761 


F761 


LED3A 


ED3A 


LF001 


F001 


LF21D 


F21D 


LF467 


F467 


LF766 


F766 


LED3F 


ED3F 


LF002 


F002 


LF225 


F225 


LF46D 


F46D 


LF772 


F772 


LED4E 


ED4E 


LF004 


F004 


LF22D 


F22D 


LF46F 


F46F 


LF778 


F778 


LED72 


ED72 


LF006 


F006 


LF235 


F235 


LF473 


F473 


LF787 


F787 


LED85 


ED85 


LF008 


F008 


LF23D 


F23D 


LF47D 


F47D 


LF79F 


F79F 


LED95 


ED95 


LF00A 


F00A 


LF245 


F245 


LF485 


F485 


LF7A4 


F7A4 


LED97 


ED97 


LF01A 


F01A 


LF24D 


F24D 


LF487 


F487 


LF7A8 


F7A8 


LEDA3 


EDA3 


LF035 


F035 


LF255 


F255 


LF48C 


F48C 


LF7C4 


F7C4 


LEDB0 


EDB0 


LF045 


F045 


LF25D 


F25D 


LF492 


F492 


LF7CC 


F7CC 


LEDBD 


EDBD 


LF06C 


F06C 


LF265 


F265 


LF496 


F496 


LF7D7 


F7D7 


LEDC4 


EDC4 


LF08C 


F08C 


LF26D 


F26D 


LF49A 


F49A 


LF7DE 


F7DE 


LEDD2 


EDD2 


LF09D 


F09D 


LF275 


F275 


LF4A1 


F4A1 


LF7E2 


F7E2 


LEDD6 


EDD6 


LF0A5 


F0A5 


LF27D 


F27D 


LF4B2 


F4B2 


LF802 


F802 


LEDD8 


EDD8 


LF0AD 


F0AD 


LF285 


F285 


LF4BF 


F4BF 


LF807 


F807 


LEDF4 


EDF4 


LF0B5 


F0B5 


LF28D 


F28D 


LF4D0 


F4D0 


LF827 


F827 


LEE06 


EE06 


LF0BD 


F0BD 


LF295 


F295 


LF4D1 


F4D1 


LF82E 


F82E 


LEE23 


EE23 


LF0C5 


F0C5 


LF29D 


F29D 


LF4D4 


F4D4 


LF854 


F854 


LEE28 


EE28 


LF0CD 


F0CD 


LF2A5 


F2A5 


LF4E5 


F4E5 


LF860 


F860 


LEE34 


EE34 


LF0D5 


F0D5 


LF2AD 


F2AD 


LF4F1 


F4F1 


LF86A 


F86A 


LEE38 


EE38 


LF0DD 


F0DD 


LF2B5 


F2B5 


LF4FC 


F4FC 


LF86E 


F86E 


LEE50 


EE50 


LF0E5 


F0E5 


LF2BD 


F2BD 


LF507 


F507 


LF87B 


F87B 


LEE5D 


EE5D 


LF0ED 


F0ED 


LF2C5 


F2C5 


LF510 


F510 


LF88A 


F88A 


LEE6D 


EE6D 


LF0F5 


F0F5 


LF2CD 


F2CD 


LF51F 


F51F 


LF8AB 


F8AB 


LEE92 


EE92 


LF0FD 


F0FD 


LF2D5 


F2D5 


LF527 


F527 


LF8B1 


F8B1 


LEE96 


EE96 


LF105 


F105 


LF2DD 


F2DD 


LF53B 


F53B 


LF8CD 


F8CD 


LEEA7 


EEA7 


LF10D 


F10D 


LF2E5 


F2E5 


LF545 


F545 


LF8EB 


F8EB 


LEEAB 


EEAB 


LF115 


F115 


LF2ED 


F2ED 


LF54C 


F54C 


LF8ED 


F8ED 


LEEC0 


EEC0 


LF11D 


F11D 


LF2F5 


F2F5 


LF570 


F570 


LF963 


F963 


LEEC7 


EEC7 


LF125 


F125 


LF2FD 


F2FD 


LF575 


F575 


LF9E3 


F9E3 


LEED3 


EED3 


LF12D 


F12D 


LF305 


F305 


LF578 


F578 


LF9F6 


F9F6 


LEEE0 


EEE0 


LF135 


F135 


LF30D 


F30D 


LF583 


F583 


LFA06 


FA06 


LEEE2 


EEE2 


LF13D 


F13D 


LF315 


F315 


LF584 


F584 


LFA0C 


FA0C 


LEEE3 


EEE3 


LF145 


F145 


LF31D 


F31D 


LF590 


F590 


LFE00 


FE00 


LEEE5 


EEE5 


LF14D 


F14D 


LF325 


F325 


LF591 


F591 


LFF00 


FF00 


LEEE6 


EEE6 


LF155 


F155 


LF32D 


F32D 


LF593 


F593 


LOCATE 


F8D2 


LEEE8 


EEE8 


LF15D 


F15D 


LF335 


F335 


LF5A7 


F5A7 


LPEEK 


E573 


LEEE9 


EEE9 


LF165 


F165 


LF33D 


F33D 


LF5B6 


F5B6 


LPOKE 


E545 


LEEEB 


EEEB 


LF16D 


F16D 


LF345 


F345 


LF5C1 


F5C1 


MICROMS 


F702 


LEEEC 


EEEC 


LF175 


F175 


LF34D 


F34D 


LF5DA 


F5DA 


MMUIMAGE 


C246 


LEEEE 


EEEE 


LF17D 


F17D 


LF355 


F355 


LF5DD 


F5DD 


MMUREG 


FFA0 


LEEEF 


EEEF 


LF185 


F185 


LF35D 


F35D 


LF5F2 


F5F2 


MOVE.XY 


C1D6 


LEEF6 


EEF6 


LF18D 


F18D 


LF365 


F365 


LF5FA 


F5FA 


MWAREMS 


E2F8 


LEEFE 


EEFE 


LF195 


F195 


LF36D 


F36D 


LF5FD 


F5FD 


NEGACCD 


F4CC 


LEF07 


EF07 


LF19D 


F19D 


LF375 


F375 


LF608 


F608 


NOWARM 


C0DE 


LEF10 


EF10 


LF1A5 


F1A5 


LF37D 


F37D 


LF610 


F610 


OLDPTR 


002D 


LEF18 


EF18 


LF1AD 


F1AD 


LF385 


F385 


LF611 


F611 


PALETTE 


E5F0 


LEF25 


EF25 


LF1B5 


F1B5 


LF38D 


F38D 


LF61F 


F61F 


PALETREG 


FFB0 


LEF2C 


EF2C 


LF1BD 


F1BD 


LF395 


F395 


LF64F 


F64F 


PALIMAGE 


C236 


LEF62 


EF62 


LF1C5 


F1C5 


LF3B8 


F3B8 


LF66D 


F66D 


PATCH28 


C0C6 


LEF6C 


EF6C 


LF1CD 


F1CD 


LF3BD 


F3BD 


LF68C 


F68C 


PATCH29 


C0D9 


LEF75 


EF75 


LF1D5 


F1D5 


LF3C3 


F3C3 


LF69B 


F69B 


PATCH30 


C8B4 
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PATCHTAB 


C256 


VEREND 


00C5 


PIA0 


FF00 


VIDEOREG 


FF98 


PIA1 


FF20 


VIDIMAGE 


C22E 


PIX1MASK 


E7F1 


VIDRAM 


0400 


PIX2MASK 


E7F9 


WAITLOOP 


C22C 


PIX4MASK 


E7FD 


WCOLOR 


00B4 


PIXELFIL 


E742 


WIDTH 


F636 


PRGGRAPH 


E004 


ZERO 


008A 


PRGMMU 


E006 






PRGTEXT 


E002 






RAMLINK 


0000 






RESTABLE 


E06C 






RESVEC 


A027 






RGB 


E674 






RSTFLG 


0071 






RSTVEC 


0072 






SAM 


FFC0 






SCALE 


00E9 






SELBLOK0 


E0A1 






SELTASK0 


E0FF 






SELTASK1 


E119 






SELTEXT 


E0B5 






SETFLG 


00C2 






SETGRAPH 


E04D 






SETMMU 


E097 






SETTEXT 


E019 






SETVIDEO 


E082 






SPARE0 


E013 






SPARE1 


E015 






SPARE2 


E017 






STRINOIIT 


B99C 






SUPERVAR 


E000 






SYNCOMMA 


B26D 






TEMPPT 


000B 






TMERROR 


B151 






TMPSTACK 


DFFF 






TMPSTK 
TXTTAB 


00DC 
0019 






V. BORDER 


FF9A 






V. TIMER 


FF94 






V40 


0040 






V41 


0041 






V42 


0042 






V44 


0044 






VALTYP 


0006 






VARDES 


003B 






VCB 


00CB 






VCD 


00CD 






VCF 


00CF 






VD1 


00D1 






VD3 


00D3 






VD4 


00D4 






VD5 


00D5 






VD6 


00D6 






VD7 


00D7 






VD8 


00D8 






VD9 


00D9 






VERBEG 


00BF 






VERDEF 


00C9 
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The major functions of the GIME chip are controlled by the chip control 
register which are mapped into the I/O page ($FF00-$FFFF) which is always 
present in the logical address space regardless of the status of the MMU 
registers. The area from $FF90-$FFBF in particular is a direct link to the 
GIME chip. 

FF90 Initialization Register (INIT0) 

l=Color Computer Compatible 
1=MMU Enabled (COCO = 0) 
l=Chip IRQ output enabled 
l=Chip FIRQ output enabled 
1=RAM at XFEFF is constant 
1=$FF40-4F external; 0=internal 
ROM map control (see table below) 
ROM map control (see table below) 

ROM mapping 

16K Internal , 16K external 

32K Internal 

32K External (except vectors) 

FF91 Initialization Register 1 (INIT1) 

BIT6-7 Unused 

BIT5 TINS Timer clock: 1 = 70nsec, = 63.5 usee 

BIT1-4 Unused 

BIT0 TR MMU task register select 

FF92 IRQ Interrupt Enable/Status Register (IRQENR) 



BIT7 


COCO 


BIT6 


MMUEN 


BIT5 


IEN 


BIT4 


FEN 


BIT3 


MC3 


BIT2 


MC2 


BIT1 


MCI 


BIT0 


MC0 


MCI 


MC0 





X 


1 





1 


1 



BIT6-7 




Unused 


BIT5 


TMR 


Timer 


BIT4 


HBORD 


Horizontal Border 


BIT3 


VBORD 


Vertical Border 


BIT2 


EI2 


RS-232 serial port 


BIT1 


Ell 


Keyboard 


BIT0 


EI0 


Cartridge Port 



FF93 FIRQ Interrupt Enable/Status Register (FIRQENR) 



BIT6-7 




Unused 


BIT5 


TMR 


Timer 


BIT4 


HBORD 


Horizontal Border 


BIT3 


VBORD 


Vertical Border 


BIT2 


EI2 


RS-232 serial port 


BIT1 


Ell 


Keyboard 


BIT0 


EI0 


Cartridge Port 
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FF94 Timer Register (MSB) 

BIT4-7 Unused 

BIT0-3 Most Significant 4 bits of timer 



FF95 Timer Register (LSB) 

BIT0-7 Least Significant 8 bits of timer 

FF96 , 7 Reserved 



FF98 Video Mode Register 



BIT7 


BP 


BIT6 




BIT5 


BPI 


BIT4 


MOCH 


BIT3 


H50 


BIT0-2 


LPR 



0=text, l=bit plane graphics 

Unused 

Burst Phase Invert (Color Set) 

l=Monochrome (Composite Monitor) 

l=50Hz vertical sync 

Lines per Row 



FF99 Video Resolution Register 

BIT7 Undefined 

BIT5-6 LPF Lines per Field (number of rows) 

BIT2-4 HRES Horizontal Resolution 

BIT0-1 CRES Color Resolution 



FF9A Border Register 



BIT6-7 Unused 

BIT0-5 Border Color 



FF9B Unused 



FF9C Vertical Scroll Register 

BIT4-7 Unused 

BIT0-3 VSC Vertical Scroll Bits 



FF9D Vertical Offset Register (MSB) 

BIT0-7 Y8-Y15 Vertical offset high order byte 
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FF9E Vertical Offset Register (LSB) 

BIT0-7 Y0-Y7 Vertical offset low order byte 



FF9F Horizontal Offset Register 

BIT7 HVEN Horizontal Virtual Enable 
BIT0-6 HOFF Horizontal Offset 



FFA0-FFA7 Memory Management Unit Task Register 
FFA8-FFAF Memory Management Unit Task Register 1 
FFB0-FFBF Palette Registers 
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Listed below are the 64 different colors available on the Color Computer 3. 
In order to use the colors, first decide which color you wish to display and find 
the color closest to your desired color in the table below. Then you must know 
whether the color will be viewed on an RGB monitor (RGB) or a composite monitor 
or a television set (CMP). Get the color number from the appropriate monitor 
column and store that number into a palette register or the border color register. 

The names assigned to these colors are based upon the names given to the RGB 
colors. Since the methods in which the RGB and composite colors are generated 
are not the same (as explained in Chapter Five) the name of the color may not 
agree whith what you personally see the color to be. This table is presented 
in order to provide a universal conversion between the RGB and composite colors. 
All you need to do is have a short program such as the one shown in Figure 16 
to allow easy conversion of colors in your program based upon the type of 
monitor being used to view the program. The table of colors given below is 
the conversion used in OS-9 Level Two. 



Monitor 


Color 


RGB 


CMP 




00 


00 


Black 


01 


12 


Low intensity blue 


02 


02 


Low intensity green 


03 


14 


Low intensity cyan 


04 


07 


Low intensity red 


05 


09 


Low intensity magenta 


06 


05 


Low intensity brown 


07 


16 


Low intensity white 


08 


28 


Medium intensity blue 


09 


44 


Full intensity blue 


10 


13 


Green tint blue 


11 


29 


Cyan tint blue 


12 


11 


Red tint blue 


13 


27 


Magenta tint blue 


14 


10 


Brown tint blue 


15 


43 


Faded blue 


16 


34 


Medium intensity green 


17 


17 


Blue tint green 


18 


18 


Full intensity green 


19 


33 


Cyan tint green 


20 


03 


Red tint green 


21 


01 


Magenta tint green 


22 


19 


Brown tint green 


23 


50 


Faded green 


24 


30 


Medium intensity cyan 


25 


45 


Blue tint cyan 


26 


31 


Green tint cyan 


27 


46 


Full intensity cyan 


28 


15 


Red tint cyan 


29 


60 


Magenta tint cyan 


30 


47 


Brown tint cyan 


31 


61 


Faded cyan 



Moni 


tor 


RGB 


CMP 


32 


23 


33 


8 


34 


21 


35 


6 


36 


39 


37 


24 


38 


38 


39 


54 


40 


25 


41 


42 


42 


26 


43 


58 


44 


24 


45 


41 


46 


40 


47 


56 


48 


20 


49 


4 


50 


35 


51 


51 


52 


37 


53 


53 


54 


36 


55 


52 


56 


32 


57 


59 


58 


49 


59 


62 


60 


55 


61 


57 


62 


63 


63 


48 



Color 

Medium inten 
Blue tint re 
Light Orange 
Cyan tint re 
Full intensi 
Magenta tint 
Brown tint r 
Faded red 
Medium inten 
Blue tint ma 
Green tint m 
Cyan tint ma 
Red tint mag 
Full intensi 
Brown tint m 
Faded magent 
Medium inten 
Blue tint ye 
Green tint y 
Cyan tint ye 
Red tint yel 
Magenta tint 
Full intensi 
Faded yellow 
Medium inten 
Light blue 
Light green 
Light cyan 
Light red 
Light magent 
Light yellow 
White 



sity red 
d 

d 

ty red 

red 
ed 

sity magenta 
genta 
agenta 
genta 
enta 

ty magenta 
agenta 
a 

sity yellow 
1 low 
el low 
1 low 
low 

yel low 
ty yellow 

sity white 
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Converting RGB Colors to Composite Colors 

It will often be beneficial to allow a graphic display to appear the same on 
a composite monitor as it does on an RGB monitor. The following Basic routine, 
which will convert an RGB color code into its closest similar composite color code, 
can be used. Since RGB colors are derived in a different manner than composite 
colors, no conversion will be exact. 

10 'SET UP CONVERSION FACTORS FOR COMPOSITE COLORS 

20 DIM C(63) : FOR X = TO 63 : READ C(X) : NEXT X 

30 GOTO 100 

40 DATA 0,12,2,14,7,9,5,16,28,44,13,29,11,27,10,43 

50 DATA 34,17,18,33,3,1,19,50,30,45,31,46,15,60,47,61 

60 DATA 23,8,21,6,39,24,38,54,25,42,26,58,24,41,40,56 

70 DATA 20,4,35,51,37,53,36,52,32,59,49,62,55,57,63,48 

80 'CONVERT C TO COMPOSITE COLOR IF NOT RGB MON. (R=0) 

90 IF R=0 THEN C=C(C) : RETURN ELSE RETURN 

100 'MAIN BODY OF PROGRAM 

FIGURE 16 - BASIC PROGRAM TO CONVERT RGB COLORS TO COMPOSITE 



The above routine should be near the beginning of the program (but after the 
CLEAR statement). The program must ask for the type of monitor being used. 
If an RGB monitor is in use, set R=l , otherwise set R=0. Then, when it is 
time to set a color, make C equal to the RGB color desired and execute a 
GOSUB 90. The color will be converted to the appropriate composite color. 
Then simply set the palette to the value in C. For example (assuming R 
has already been set up), a line might read 
270 C=27 : GOSUB 90 : PALETTE 3,C 



E2 



SUPER EXTENDED BASIC UNRAVELLED II 



APPENDIX F 

SUPER EXTENDED BASIC'S DATA/ASCII TABLES 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



Listed below are all of the data and ASCII tables found in the last half (C000-FDFF) of the 
Super Extended Basic ROM. 



START 



END 



DESCRIPTION 



C22E C235 VIDEO CONTROL REGISTERS' IMAGE (INITIALIZATION) 

C236 C245 PALETTE REGISTERS' IMAGE (INITIALIZATION) 

C246 C255 MMU REGISTERS' IMAGE (INITIALIZATION) 

C256 C30C COLOR/EXTENDED BASIC PATCH TABLE 

C30D C321 CODED AUTHORS' NAMES 

C351 C358 DISK BASIC PATCH TABLE 

C359 C36B INTERRUPT JUMP TABLE IMAGE 

C405 DC04 DIGITIZED PICTURE OF THE AUTHORS 

E000 E018 ROM ROUTINES' ADDRESS VECTORS 

E032 E04C VIDEO REGISTERS' TEXT MODE IMAGES 

E06C E06F VIDEO RESOLUTION REGISTER ($FF99) VALUES 

E070 E081 VIDEO REGISTERS' GRAPHICS MODE IMAGES 

E0E1 E0F0 MMU IMAGES 

E162 E16B COMMAND INTERPRETATION TABLE 

E1C5 E235 COMMANDS DICTIONARY 

E236 E263 COMMANDS DISPATCH TABLE 

E264 E27D FUNCTIONS DICTIONARY 

E27E E287 FUNCTIONS DISPATCH TABLE 

E2A3 E2F7 DISK BASIC 2.0 COPYRIGHT MESSAGE 

E2F8 E315 'AND MICROWARE SYSTEMS CORP.' MESSAGE 

E316 E388 DISK BASIC 2.1 COPYRIGHT MESSAGE 

E4CC E4CF SUPER EXTENDED BASIC ERROR CODES 

E654 E663 TABLE OF 'OFFICIAL' COMPOSITE COLORS 

E664 E673 TABLE OF 'OFFICIAL' RGB COLORS 

E678 E687 PALETTE REGISTERS' RAM IMAGE 

E6CB E6CE TABLE OF HOW MANY BYTES PER HORIZONTAL ROW IN THE 

HIGH RESOLUTION GRAPHICS MODES 

E759 E75C TABLE OF SINGLE PIXEL MASKS FOR THE HI-RES GRAPHICS MODES 

E75D E760 TABLE OF MULTIPLIERS TO SPREAD A SINGLE PIXEL MASK 

THROUGH AN ENTIRE BYTE 

E7F1 E7FE TABLE OF 1,2 AND 4 BIT SHIFTED PIXEL MASKS 

EA25 EA2C TABLE OF PIXEL MOVE ADDRESSES 

EB99 EBBC TABLE OF SINES AND COSINES FOR THE HCIRCLE COMMAND 

EEE0 EEEE LOOKUP TABLE FOR PSET, PRESET, AND, OR AND NOT ROUTINES 

FOR THE HPUT COMMAND 

F002 F00B TABLE OF ADDRESSES FOR THE HI-RES PRINT DRIVERS 

F035 F044 TABLE OF ALL POSSIBLE 2 BIT PIXEL MASKS 

F06C F08B TABLE OF ALL POSSIBLE DOUBLE BYTE 4 BIT PIXEL MASKS 

F09D F39C HIGH RESOLUTION SOFTWARE CHARACTER GERNERATOR 'ROM' 

F702 F71A 'MICROWARE SYSTEMS CORP.' MESSAGE 

F71B F72F AUTHORS' NAMES - THIS AREA IS ALL ZEROS IN THE ROM. AFTER 

INITIALIZATION THE AUTHORS' NAMES WILL BE FOUND HERE (IN RAM) 

UNTIL YOU EXECUTE A CLS 100 COMMAND, AFTER WHICH TIME YOU WILL 

FIND NOPs IN THIS AREA. 
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At the back of the Color Computer 3 Extended Basic manual, you will find 
a section called ROM ROUTINES. In this section you will find a summary of 
the official ROM calls which may be made. These official calls are located at 
$A000 and are made by indirect subroutine calls to the addresses given. No 
mention is made of a suspicious looking table of addresses located at address 
$E000 which is the beginning of the new code added to the Basic ROM by the 
Color Computer 3. These addresses are similar to a table of addresses at the 
beginning of the Disk Basic ROM which is only partially documented. It is the 
opinion of the author that the Super Extended table, as well as the Disk Basic 
table, will be maintained by Tandy and should be used as if they were supported 
by Tandy. The reader is cautioned that this is just the OPINION of the author 
and is by no means the official stance of Tandy. 



SUPERVAR = [E000] 

This is the address of the direct page variables used by Super Extended Basic. 

It is not the address of a routine. 

ENTRY CONDITIONS 
Not applicable 

EXIT CONDITIONS 
Not applicable 



PRGTEXT = [E002] 

Program INIT0 and the video control registers with their RAM images according 
to the value contained in HRWIDTH. Basic (unmodified by the user) will do the 
following: 1) If HRWIDTH = 0, set up 32 column CoCo compatible mode, 2) If 
HRWIDTH = 1, set up the 40 column hi -res text mode, 3) If HRWIDTH = anything 
else, set up the 80 column hi -res text mode. A RAM hook exists in this routine 
which will allow the user to modify it. 

ENTRY CONDITIONS 

HRWIDTH should be set to a valid value. 

EXIT CONDITIONS 

INIT0 and the video control registers are modified. All CPU registers, except 

CC are preserved. 



PRGGRAPH = [E004] 

Program INIT0 and the video control registers with their RAM images according 
to the value contained in HRMODE. Basic (unmodified by the user) will do the 
following: 1) If HRMODE is 1,2,3 or 4, set the proper HSCREEN graphics mode 
or 2) if HRMODE is any other value, cause invalid and potentially disastrous 
data to be programmed into INIT0 and the video control registers. A RAM hook 
exists in this routine which will allow the user to modify it. 

ENTRY CONDITIONS 

HRMODE should be set to a valid value (1-4) 
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EXIT CONDITIONS 

INIT0 and the video control registers are modified. All CPU registers, except 

CC are preserved. 



PRGMMU = [E006] 

Program the MMU registers with their RAM images. 

ENTRY CONDITIONS 
None 

EXIT CONDITIONS 

The MMU registers are modi fed. All CPU registers, except CC are preserved. 



GETTEXT = [E008] 

Place block 6.6 into the RAM image of the Task Register MMU register which 
controls logical block 1. Then copy the RAM image of the MMU registers to the 
MMU registers. Finally, replace block 6.6 (as saved above) with block 7.1 in 
the RAM image of the MMU registers. This is a very special purpose routine 
used by Basic to replace the hi -res text screen into the logical address space 
so that they may be modified. 

ENTRY CONDITIONS 
None 

EXIT CONDIIIONS 

The RAM image of MMU register one of task register and the MMU registers are 

modified. All CPU registers, except CC, are preserved. 



GETBLOK0 = [E00A] 

Place a block into the RAM image of Task Register MMU register which controls 
logical block 0. Then copy the RAM image of the MMU registers to the MMU reg- 
isters. Finally, replace the block (as saved above) with block 7.0 in the RAM 
image of the MMU registers. This is a very special purpose routine used by 
Basic to place any block into the logical address space so that it may be 
modified. 

ENTRY CONDITIONS 

B contains the block (0-$3F) to be loaded. 

EXIT CONDITIONS 

The RAM image of the MMU register of task register and the MMU registers 

are modifed. Akk CPU registers, except CC, are preserved. 



GETTASK0 = [E00C] 

Restore task register as the active task register. 

ENTRY CONDITIONS 
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The new address for the stack pointer must be the first two bytes on the stack. 

EXIT CONDITIONS 

The stack pointer is reset to the first two bytes on the old stack. All other 

CPU registers, except CC, are preserved. V40-V45 are modified. INIT1 is cleared 

which may affect the timer input clock. FIRQ and IRQ are masked on at the CPU. 

GETTASK1 = [E00E] 

Select Task Register 1 as the active task register 

ENTRY CONDITIONS 
None 

EXIT CONDITIONS 

The stack pointer has been reset to $DFFF and the old stack pointer has been 
saved on the new stack. All other CPU registers, except CC, have been saved. 
V40-V45 have been modified. INIT1 has been forced to 1 which may affect the 
timer input clock. FIRQ and IRQ have been masked off at the CPU. 

GOCART = E010 

This address is used to execute a ROM cartridge (on the expansion port) if the 

cartridge does not autostart. 

SPARE0 = [E013] 

This address is undefined. 

SPARE1 = [E015] 

This address is undefined. 

SPARE2 = [E017] 

This address is undefined. 
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Listed below are several routines in the Super Extended Basic ROM (which run in 
RAM). These routines should be used with great care since they usually expect 
that some of Basic's variables have been initialized to a certain range of 
values in order to function. If the routines encounter an error, they will 
exit to Basic's error processing code. The user must be aware of this fact 
and intercept Basic's error routines if you are to stay in control while 
using these routines. Some of these routines may also change the MMU registers 
- BEWARE! 



MODIFIED* 
REGISTERS 

none 



ADDRESS DESCRIPTION 

E0CB ENABLE HGET/HPUT BUFFER - Put the HPUT/HGET buffer 

block (6.4) into the logical address space. Exit with 

the MMU register images restored to 'normal'. 



A.B.X.Y 



E0F1 



PROGRAM MMU REGISTERS - Program the 16 MMU registers 
with the 16 bytes pointed to by the X register. 



B,X 



E58E 



GET LONG ADDRESS - Convert FPA0 into a 'long' (512K) 
address. Return the block number of the address in 
ACCB and the remaining 13 bits of the address in X. 



A,B,X 


BUTTON+13 




(E5BE) 


A,B,X,Y 


E5FA 


A,B,X,Y 


E606 


A,B,X,Y 


E634 


A,B,X 


CLRHIRES 




(E6D8) 


A,B 


PIXELFIL 




E742 



READ JOYSTICK BUTTON - Read the joystick button 
specified in ACCB (0-3) and return the status in FPA0. 

DISPLAY DEFAULT RGB COLORS - Copy Basic's default RGB 
palette register colors into the palette registers. 

DISPLAY DEFAULT CMP COLORS - Copy Basic's default CMP 
palette register colors into the palette registers. 

COPY PALETTE IMAGES - Copy the palette register color 
RAM images into the palette registers. 

CLEAR THE HI-RES GRAPHICS SCREEN - Clear the hi -res 
graphics screen to the palette register number in ACCB. 

FILL ACCB WITH PIXELS - Fill ACCB with pixels composed 
of a specific palette register. Enter with ACCB Con- 
taining the palette register number used to fill ACCB. 



A,B 



E792 



TURN ON A PIXEL - Turn on the pixel which is being 
pointed to by the X register (screen address) and bit 
position specified by ACCA (pixel mask) to the color 
in ALLCOL. Set CHGFLG <> if pixel was unchanged by 
the action. 



A.B.X.Y 



E7B2 



EVALUATE HI-RES COORDINATES - Evaluate two expressions 
in a Basic Line. Perform hi -res coordinate range checks 
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on the values returned and store the tested values in 
the address pointed to by Y. 

A,X,U CALPOS CALPOS FOR CURRENT HSCREEN MODE - Jump to the correct 
E7DA CALculate POSition routine depending upon the current 
HSCREEN mode. 

A,X G1BITPIX CALPOS 2 COLOR MODE - Calculate the screen address and 

(E7FF) pixel mask for the 2 color hi -res graphics mode. Enter 
with X,Y coordinates in HORBEG and VERBEG and exit with 
the address in the X Register and the pixel mask in ACCA. 

A,X G2BITPIX CALPOS 4 COLOR MODE - Calculate the screen address and 

(E820) pixel mask for the 4 color hi -res graphics mode. Enter 
with X,Y coordinates in HORBEG and VERBEG and exit with 
the address in the X Register and the pixel mask in ACCA. 

A,X G4BITPIX CALPOS 16 COLOR MODE - Calculate the screen address and 

(E83F) pixel mask for the 16 color hi -res graphics mode. Enter 
with X,Y coordinates in HORBEG and VERBEG and exit with 
the address in the X Register and the pixel mask in ACCA. 

A,B,X,Y,U E8D3 DRAW A HI-RES BOX - Enclose a diagonal line with a box 

(box function of HLINE). Enter with the start and end 
coordinates of the original line in HORBEG, VERBEG, 
HOREND and VEREND. 

A,B,X,Y,U E8F6 FILL A HI-RES BOX - Draw a series of horizontal lines 

from VERBEG to VEREND. 

A,B,X,Y,U E906 DRAW A HORIZONTAL HI-RES LINE - Draw a horizontal hi-res 

line from HOREND to HORBEG at the vertical coordinate 
VERBEG with the palette register number in ALLCOL. 

A,B,X,Y,U E931 DRAW A VERTICAL HI-RES LINE - Draw a vertical hi-res 

line from VEREND to VERBEG at the horizontal coordinate 
HORBEG with the palette register number in ALLCOL. 

A,B,X,Y,U E94E DRAW A HI-RES LINE - Draw a hi-res line from (HORBEG, 

VERBEG) to (HOREND, VEREND). 

X E9B1 INCREMENT HORIZONTAL HI-RES POSITION - Increment the 

horizontal hi-res position (HORBEG). 

X E9B8 INCREMENT VERTICAL HI-RES POSITION - Increment the 

vertical hi-res position (VERBEG). 

X E9BF DEREMENT HORIZONTAL HI-RES POSITION - Decrement the 

horizontal hi-res position (HORBEG). 

X E9C6 DECREMENT VERTICAL HI-RES POSITION - Decrement the 

vertical hi-res position (VERBEG). 
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A,B E9CD CALCULATE HI-RES ABS ( VEREND- VERBEG) - Calculate the 

absolute value of the distance between VEREND and 
VERBEG. The carry flag will indicate which was the 
larger coordinate. 

A,B E9DB CALCULATE HI-RES ABS (HOREND-HORBEG) - Calculate the 

absolute value of the distance between HOREND and 
HORBEG. The carry flag will indicate which was the 
larger coordinate. 

B,U EA16 POINT TO HI-RES PIXEL MOVE ROUTINE - Point the U register 

to the routine which will move the current pointer (X) 
to the right one pixel position for the current HSCREEN 
mode. 

A,X EA2D MOVE A HI-RES PIXEL TO THE RIGHT - Adjust the X register 

and ACCA one pixel position to the right in the 2 color 
hi -res graphics mode. Enter with the screen address in 
the X register and the pixel mask in ACCA. 

A,X EA34 MOVE A HI-RES PIXEL TO THE RIGHT - Adjust the X register 

and ACCA one pixel position to the right in the 4 color 
hi -res graphics mode. Enter with the screen address in 
the X register and the pixel mask in ACCA. 

A,X EA3D MOVE A HI-RES PIXEL TO THE RIGHT - Adjust the X register 

and ACCA one pixel position to the right in the 16 color 
hi -res graphics mode. Enter with the screen address in 
the X register and the pixel mask in ACCA. 

B,X EA45 ADJUST HI-RES SCREEN POINTER DOWN A ROW - Move the X 

register down one hi -res graphic row. The number of 
bytes per horizontal graphic row must be in HORBYT. 

U,Y EBCB 16 BIT MULTIPLY - Multiply (unsigned) two 16 bit 

numbers together. Enter with one number in ACCD and the 
other in the X register. The four byte product will be 
returned in the Y and U registers. 

A,X F00A 2 COLOR HI-RES PRINT DRIVER - Convert the bit pattern in 

ACCA into a hi -res 2 color pixel pattern and put that 
pixel pattern into the screen address pointed to by X. 
ALLCOL contains the palette register used. 

A.B.X F01A 4 COLOR HI-RES PRINT DRIVER - Convert the bit pattern in 

ACCA into a hi -res 4 color pixel pattern and put that 
pixel pattern into the screen address pointed to by X. 
ALLCOL contains the palette register used. 

A.B.X F045 16 COLOR HI-RES PRINT DRIVER - Convert the bit pattern in 

ACCA into a hi -res 16 color pixel pattern and put that 
pixel pattern into the screen address pointed to by X. 
ALLCOL contains the palette register used. 
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A,B NEGACCD NEGATE ACCD - Negate the value contained in ACCD. 

(F4CC) 

A,B F5FD MULTIPLY ACCD BY 10 - Multiply the value contained in 

ACCD by 10. 

none F608 NUMERIC ASCII TEST - Test ACCA to see if it contains a 

numeric (0-9) character. Return the carry flag clear if 
numeric, set if not. 

SET TO 32 COLUMN MODE - Set up the 32 column CoCo com- 
patible text mode and clear the text screen. This routine 
will enable IRQ and FIRQ at the CPU level. 

SET TO 40 COLUMN MODE - Set up the 40 column hi -res text 
mode and clear the text screen. This routine will enable 
IRQ and FIRQ at the CPU level . 

SET TO 80 COLUMN MODE - Set up the 80 column hi -res text 
mode and clear the text screen. This routine will enable 
IRQ and FIRQ at the CPU level. 

CLEAR THE HI-RES TEXT SCREEN - Clear the hi -res text 
screen and home the cursor. The text screen must be in 
logical block 1 for this routine to function. 

A.B.X F8F7 MOVE THE HI-RES CURSOR - Move the hi -res cursor to the 

column and row numbers specified in ACCA and ACCB 
respectively. 

* The CC register is modified by all routines 



A.B.X 


C0L32 




(F652) 


A.B.X 


COL40 




(F65C) 


A.B.X 


COL80 




(F679) 


A.B.X 


F68C 
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BASIC 1.2/EXTENDED 1.1 vs COLOR EXTENDED 2.0 DIFFERENCES 

Listed below are all of the sections of code where the Basic 1.2 and Extended Basic 1.1 ROMs differ from the 
bottom half of the CoCo 3 ROM. If these changes are made in the Color Basic Unravelled and Extended Basic Unravelled 
books, those books can then be used with the new CoCo 3 ROM. The code below is CoCo 3 code. 



* EXBAS WARM START ENTRY POINT 

PATCH1 

XBWMST FCB $FF 



SET TO NOT ALLOW A RESET TO WARM START HERE 



80E8 
8100 
8101 
811C 
811D 
8139 



L80E8 FCC 'EXTENDED COLOR BASIC 2.0' 

FCB CR 

FCC 'COPR. 1982, 1986 BY TANDY ' 

FCB CR 

FCC 'UNDER LICENSE FROM MICROSOFT' 

FCB CR 



PATCH13 FCB CR,0 



* DLOAD COMMAND 
DLOAD JSR LA429 



CLOSE FILES 



8C1B 
8C1D 
8C1F 
8C22 
8C25 

8C28 
8C2B 

8C2E 
8C30 
8C33 
8C36 



8C37 
8C39 
8C3B 
8C3D 
8C41 
8C43 



8C46 
8C48 
8C4A 
8C4C 
8C4F 
8C51 
8C54 



A02A 
A02C 
A02F 
A032 
A035 
A037 
A039 
A03A 
A03C 
A03E 
A040 
A042 
A044 
A046 
A048 
A04A 
A04C 
A04F 
A051 
A053 
A055 



* PRESSING THE RESET WILL BRING YOU HERE 
INT.RSETORCC #$50 

LDA #MC3+MC1 
STA INIT0 
CLR SAM+$1E 
JMP $C000 

* FIRQ SERVICING ROUTINE ADDITIONS 

CLR INT. FLAG 
CLR PIA1+3 

* NON SELF-STARTING ROM CARTRIDGE INITIALIZATION CODE 

LDA #C0C0+MMUEN+MC3+MC2 
STA INIT0 



DISABLE IRQ, FIRQ INTERRUPTS 
32K INTERNAL ROM, MMU DISABLED, 



NON COCO COMPATIBLE 



SET THE INTERRUPT FLAG TO NOT VALID 
DISABLE PIA 1. PORT B INTERRUPTS 





CLR 


SAM+$1E 




RTS 




* PUT 


A CHARACTER ON THE 


PATCH22A 




L8C37 


PSHS 


A,B,X 




LDX 


CURPOS 




LDB 


HRWIDTH 




LBNE 


$F7AE 


L8C41 


LDB 


1,S 




JMP 


LA30E 


* CLS 


PATCH 




PATCH23A 




L8C46 


PSHS 


CC 




TST 


HRWIDTH 




BEQ 


L8C4F 




JMP 


$F6AD 


L8C4F 


PULS 


CC 




JMP 


LA913 




NOP 




* NEW 


2.0 INITIALIZATION 


LA02A 


LDA 


#BLOCK7.2 




STA 


MMUREG+2 




LDX 


#PIA1 




LDD 


#$FF34 




CLR 


1,X 




CLR 


3,X 




DECA 






STA 


>x 




LDA 


#$F8 




STA 


2,X 




STB 


1,X 




STB 


3,X 




CLR 


2,X 




LDA 


#2 




STA 


,x 




LDA 


#$FF34 




LDX 


#PIA0 




CLR 


1,X 




CLR 


3,X 




CLR 


>x 




STA 


2,X 



ENABLE MMU, 16K INTERNAL/16K EXTERNAL ROM 
ALSO ENABLE STANDARD SCS, CONSTANT RAM AT FE0 
FORCE THE ROM MODE 



SAVE REGISTERS 

POINT X TO THE CURRENT CHARACTER POSITION 

GET THE HI-RES TEXT MODE 

BRANCH IF IN A HI-RES TEXT MODE (ALINK22) 

RESTORE ACCB TO ITS FORMER GLORY 

GO BACK TO THE NON HI-RES CHARACTER DISPLAY ROUTINE 



SAVE THE ZERO FLAG 

CHECK THE HI-RES TEXT MODE 

BRANCH IF NOT IN A HI-RES TEXT MODE 

GO DO A HI-RES CLS (ALINK23) 

RESTORE THE ZERO FLAG 

GO DO A NON HI-RES CLS 



PUT THE 'NORMAL' BLOCK BACK INTO LOGICAL BLOCK 2; 



* THE INITIALIZATION CODE AT $C0 
POINT X TO PIA1 



USES BLOCK 6.4. 



CLEAR CONTROL REGISTER A ON PIA1 

CLEAR CONTROL REGISTER B ON PIA1 

A REG NOW HAS $FE 

BITS 1-7 ARE OUTPUTS, BIT IS INPUT ON PIA1 SIDE A 

= BITS 0-2 ARE INPUTS, BITS 3-7 ARE OUTPUTS ON B SIDE 

* ENABLE PERIPHERAL REGISTERS, DISABLE PIA1 MPU 

* INTERRUPTS AND SET CA2 , CB2 AS OUTPUTS 
SET 6847 MODE TO ALPHA-NUMERIC 

* 

* MAKE RS232 OUTPUT MARKING 

POINT X TO PIA0 
CLEAR PIA0 CONTROL REGISTER A 
CLEAR PIA0 CONTROL REGISTER B 
SET PIA0 SIDE A TO INPUT 

* SET PIA0 SIDE B TO OUTPUT 
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A057 

A059 
A05B 

A05E 
A061 



STB 



1,X 



STB 3,X 
JMP LA072 

THE MANUAL ROM CARTRIDGE START (EXEC &HE0H 
JSR LBC2E 
JMP ROMPAK 



* ENABLE PIA0 PERIPHERAL REGISTERS, DISABLE PIA0 

* MPU INTERRUPTS, SET CA2 , CA1 TO OUTPUTS 

) JUMPS HERE 
SET UP THE SYSTEM FOR A ROM CARTRIDGE 
JUMP TO THE ROM-PAK 



A084 
A087 
A089 
A08A 
A08B 
A08C 
A08D 
A08E 
A08F 
A090 
A091 
A092 



A0CB 
A0CE 
A0D0 
A0D2 
A0D6 
A0D9 
A0DC 
A0DE 

A0F3 

A0FC 



LA084 



LA0CE 



LA0D6 



LA0DE 



LDX 


#$7FFF 


BRA 


LA093 


NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




NOP 




JMP 


EXBAS+2 


PSHS 


B,X 


TST 


HRWIDTH 


LBNE 


$F77E 


JSR 


LA199 


JSR 


>KEYIN 


BEQ 


LA0D6 


JMP 


LA1B9 



FORCE THE TOP OF RAM TO BE $7FFF 
THESE 10 NOPs ARE JUST SPACE FILLERS 



LA0F3 JMP LAC73 
LA0FC JSR L8C28 



JUMP TO EXTENDED BASIC 

CHECK FOR HI-RES TEXT MODE 

BRANCH IF A HI-RES TEXT MODE IS ENABLED (ALINK24) 

BLINK THE CURSOR 

GET A KEY 

KEEP GOING UNTIL A KEY IS DEPRESSED 

REMOVE THE CURSOR FROM THE SCREEN AND RETURN 

GO TO MAIN LOOP OF BASIC 

PREPARE TO USE THE CARTRIDGE ROM; FORCE THE ROM MODE 



THIS ROUTINE GETS A KEYSTRIKE FROM THE KEYBOARD IF A KEY 
IS DOWN. IT RETURNS A ZERO TRUE IF THERE MAS NO KEY DOWN. 



A1C1 
A1C4 
A1C5 
A1C6 
A1C7 
A1C8 
A1C9 
A1CA 



BFF0 
BFF2 
BFF4 
BFF6 
BFF8 
BFFA 
BFFC 
BFFE 



1C1 JMP 


KEYIN 


RTS 




RTS 




RTS 




RTS 




RTS 




RTS 




RTS 




INTERRUPT VECTORS 


FDB 


JA681 


FDB 


INT.SWI3 


FDB 


INT.SWI2 


FDB 


INT.FIRQ 


FDB 


INT. IRQ 


FDB 


INT.SWI 


FDB 


INT.NMI 


FDB 


INT. RESET 



THESE RTS's ARE WHERE A CHECK WAS PERFORMED TO 

SEE IF A KEY WAS DOWN. IF THE CHECK REVEALED THAT 

A KEY WAS NOT DOWN, THEN THE KEYIN 

ROUTINE WAS NOT CHECKED. WHICH MAKES BASIC RUN 

FASTER 



RESERVED FOR FUTURE USE (FILLED WITH GARBAGE BYTES) 



SOFTWARE INTERRUPT 3 
SOFTWARE INTERRUPT 2 
FAST INTERRUPT REQUEST 
INTERRUPT REQUEST 
SOFTWARE INTERRUPT 
NON-MASKABLE INTERRUPT 
RESET BUTTON 



($FEEE) 
(JFEF1) 
(JFEF4) 
(JFEF7) 
($FEFA) 
($FEFD) 
($8C1B) 
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HI RESOLUTION CHARACTER SET 

Listed below is the character set available when in the high resolution text 

modes (WIDTH 40,80). The character set is repeated for character values $80-$FF. 

00 Q 10 6 20 30 40 @ 50 P 60 A 70 p 

01 11 s 21 ! 31 1 41 A 51 Q 61 a 71 q 

02 e 12 H 22 " 32 2 42 B 52 R 62 b 72 r 

03 a 13 o 23 # 33 3 43 C 53 S 63 c 73 s 

04 a 14 6 24 $ 34 4 44 D 54 T 64 d 74 t 

05 a 15 25 % 35 5 45 E 55 U 65 e 75 u 

06 a 16 Q 26 & 36 6 46 F 56 V 66 f 76 v 

07 g 17 u 27 ' 37 7 47 G 57 W 67 g 77 w 

08 e 18 28 ( 38 8 48 H 58 X 68 h 78 x 

09 e 19 29 ) 39 9 49 I 59 Y 69 I 79 y 
0A e 1A 2A * 3A : 4A J 5A Z 6A j 7A z 
0B T IB § 2B + 3B ; 4B K 5B [ 6B k 7B { 
0C T 1C £ 2C , 3C < 4C L 5C \ 6C 1 7C I 
0D B ID ± 2D - 3D = 4D M 5D ] 6D m 7D } 
0E A IE ° 2E . 3D > 4E N 5E * 6E n 7E ~ 
0F A IF f 2F / 3F ? 4F 5F «■ 6F o 7F _ 



LOW RESOLUTION COCO COMPATIBLE CHARACTER SET 

Listed below is the character set available when in the CoCo compatible 
text mode (WIDTH 32). Graphics blocks are printed for character values $80-$FF. 
The character set given below assumes that bit 4 of $FF22 is set. If that bit 
is clear, then the characters in the range of 0-$lF must be replaced by the 
corresponding characters in the range $40-$5F in inverse video. 



A 


10 


P 


20 




30 





40 


e 


50 


P 


60 




70 





1 a 


11 


q 


21 


i 


31 


1 


41 


A 


51 


Q 


61 


i 


71 


1 


2 b 


12 


r 


22 


n 


32 


2 


42 


B 


52 


R 


62 


n 


72 


2 


3 c 


13 


s 


23 


# 


33 


3 


43 


C 


53 


S 


63 


# 


73 


3 


4 d 


14 


t 


24 


$ 


34 


4 


44 


D 


54 


T 


64 


$ 


74 


4 


5 e 


15 


u 


25 


°/o 


35 


5 


45 


E 


55 


U 


65 


°/o 


75 


5 


6 f 


16 


v 


26 


& 


36 


6 


46 


F 


56 


V 


66 


& 


76 


6 


7 g 


17 


w 


27 


r 


37 


7 


47 


G 


57 


W 


67 


1 


77 


7 


8 h 


18 


X 


28 


( 


38 


8 


48 


H 


58 


X 


68 


( 


78 


8 


9 I 


19 


y 


29 


) 


39 


9 


49 


I 


59 


Y 


69 


) 


79 


9 


A j 


1A 


z 


2A 


* 


3A 


; 


4A 


J 


5A 


Z 


6A 


* 


7A 


; 


B k 


IB 


{ 


2B 


+ 


3B 


j 


4B 


K 


5B 


[ 


6B 


+ 


7B 


j 


C 1 


1C 


1 


2C 


? 


3C 


< 


4C 


L 


5C 


\ 


6C 


) 


7C 


< 


D m 


ID 


} 


2D 


- 


3D 


= 


4D 


M 


5D 


] 


6D 


- 


7D 


= 



JE n IE ~ 2E . 3D > 4E N 5E * 6E . 7E > 
)F o IF 2F / 3F ? 4F 5F «■ 6F / 7F ? 

Note: The characters defined by $20-$3F are inverse video. 



ji 



